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