1.1)var n,i:integer; begin writeln('Введите число n'); readln(n); for i:=1 to n do begin if (i mod 12=0) then write(i,' '); end; end. 1.2)var n,i:integer; begin writeln('Введите число n'); readln(n); i:=1; while (i<=n) do begin if (i mod 12=0) then write(i,' '); i:=i+1; end; end. 1.3)var n,i:integer; begin writeln('Введите число n'); readln(n); i:=1; repeat if (i mod 12=0)then write(i,' '); i:=i+1; until (i>n); end. 2.1)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); for i:=1 to n do beginif (i mod 6=0)then s:=s+i; end; writeln('Сумма равняется ',s); end. 2.2)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); i:=1; while (i<=n) do begin if (i mod 6=0) then s:=s+i; i:=i+1; end; writeln('Сумма равняется ',s); end. 2.3)var n,i,s:integer; begin s:=0; writeln('Введите число n'); readln(n); i:=1; repeat if (i mod 6=0) then s:=s+i; i:=i+1; until (i>n); writeln('Сумма равняется ',s); end.
Program z1; var a:array[1..100] of integer; i,n,ma,mau:integer; begin assign(input,'in.txt'); reset(input); readln(n); for i:=1 to n do begin read(a[i]); end; close(input); ma:=a[1];mau:=1; for i:=1 to n do begin if a[i]>ma then begin ma:=a[i];mau:=i end; end; a[mau+1]:=2*ma; if mau=n then n:=n+1; assign(output,'out.txt'); rewrite(output); for i:=1 to n do begin write(a[i],' ') end; close(output) end.
б)
Объяснение:
есть поисковая система YaHoo остальное это какое-то сайты