var
№1
Var
A: array[1..100] of byte;
i, t, k, N: byte;
begin
write(' N = ');
readln(N);
writeln('Введите массив из ',N, ' элементов:');
for i := 1 to N do
read(a[i]);
writeln('Введите число k, не больше ', N, ':');
write( 'k = ');
readln(k);
for i := 1 to Trunc(N / k) do
write(' ', a[i * k])
end.
№2
var
A: array[1..10, 1..10] of integer;
i, j, M, N: byte;
begin
writeln('Введите M, N:');
readln(M, N);
writeln('Случайная матрица порядка ', M, ' x ', N, ':');
randomize;
for i := 1 to M do begin
for j := 1 to N do begin
a[i, j] := random(50);
write(a[i, j]:4)
end;
writeln
end;
writeln;
writeln('Выводим элементы в четных строках:');
i := 2; { минимальное четный номер строки }
while i <= M <strong>do begin
for j := 1 to N do write(a[i, j]:4);
i := i + 2 { увеличиваем номер строки на 2 }
end;
readln
end.
№3
var
a,s:string;
i:integer;
begin
write('vvedite stroky: ');
readln(s);
write('vvedite ydaliaemoe slovo: ');
readln(a);
delete(s,pos(a,s),length(a));
writeln(s);
readln;
end.
№4 нашел в своих закромах) посчастливилось, что у меня она осталась) Прога объемная, надеюсь поймешь)
type
TDate = record
Day:integer;
Month:integer;
Year:integer;
end;
var date:TDate;
function LeapYear(D:TDate):boolean;
begin
if (D.Year mod 4)=0 then
LeapYear:=true
else
LeapYear:=false;
end;
function DaysInMonth(D:TDate):integer;
begin
if (D.Month=1) or (D.Month=3) or(D.Month=5) or(D.Month=7) or(D.Month=8) or(D.Month=10) or (D.Month=12)
then
DaysInMonth:=31
else
if (D.Month=4) or(D.Month=6) or(D.Month=9) or(D.Month=11)
then
DaysInMonth:=30
else
if (D.Month=2) then
begin
if LeapYear(D)
then
DaysInMonth:=29
else
DaysInMonth:=28;
end;
end;
function CheckDate(D:TDate):integer;
begin
CheckDate:=0;
if (D.day>DaysInMonth(D)) or (D.day<0) <br>then
CheckDate:=2;
if (D.Month>12) or (D.Month<0) then <br>CheckDate:=1;
end;
procedure PrevDate;
begin
if (CheckDate(date)=0) then
begin
if (date.day-1)<=0 then
<br> begin
if (date.month-1)<=0 then
<br> begin
date.year:=date.year-1;
date.month:=12;
date.day:= DaysInMonth(date);
end
else
begin
date.month:=date.month-1;
date.day:=DaysInMonth(date);
end;
end
else
date.day:=date.day-1;
end;
end;
procedure NextDate;
begin
if (CheckDate(date)=0) then
begin
if (date.day+1)>DaysInMonth(date) then
begin
if (date.month+1)>12 then
begin
date.year:=date.year+1;
date.month:=1;
date.day:=1;
end
else
begin
date.month:=date.month+1;
date.day:=1;
end;
end
else date.day:=date.day+1;
end;
end;
begin
write('День ');
readln(date.day);
write('Месяц ');
readln(date.month);
write('Год ');
readln(date.year);
writeln;
NextDate;
write('День ');
writeln(date.day);
write('Месяц ');
writeln(date.month);
write('Год ');
writeln(date.year);
end.