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.
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.