Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

И последнее пожалуйста!!!!!

Ответ оставил Гость

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 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 нашел в своих закромах) посчастливилось, что у меня она осталась) Прога объемная, надеюсь поймешь)
typeTDate = 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)
then
CheckDate:=2;     
if (D.Month>12) or (D.Month<0) then
CheckDate:=1;
end; 

procedure PrevDate;
begin   
 if (CheckDate(date)=0) then   
 begin         
if (date.day-1)<=0 then         
begin             
 if (date.month-1)<=0 then             
 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.