program raf105;
var i,n:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
writeln('7');
end.
6.program raf105;
var
i: integer;
pro: real;
begin
pro:= 1;
for i:=1 to 20 do
pro*= i;
writeln('Произведение первых 20 чисел: ',pro);
end.
7.program raf105;
var i,sum: integer;
begin
for i:=1 to 15 do
sum+= i;
writeln('Сумма первых 15 чисел: ',sum);
end.
program raf105;
var a,otr: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if a<0
then otr+= 1;
until a = 0;
writeln('Отрицательных чисел: ',otr);
end.
№2program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if a>0
then sum+= a;
until a = 0;
writeln('Сумма положительных чисел: ',sum);
end.
PascalABC 3.4.2
begin
var a:= readinteger('Введите А :');
var b:= readinteger('Введите В :');
var h:= readinteger('Введите шаг h :');
var mul: longint = 1;
for var i:= a to b do
if (i mod h = 0) then
mul:=i*mul;
write(mul);
end.
begin
var n:= readreal('Введите n:');
var S: real = 0;
repeat
if n<0 then
break;
S:=S+power(n,2);
n:=n-1;
until (n<0);
write(S);
end.