Question

5-7 задание. Написать программы в PascalABC.

Answer 1

5.                                                      

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.