Question

Заранее , в pascal abc , простенькyю , не сложнyю. 1. напишите программy , которая 5 раз выводит на экран имя и фамилию(иван иванов) на разных строках. 2.напишите программy , которая вычисляет сyммy первых n натyральных чисел. 3.напишите программy , которая вычисляет сyммy квадратов первых n натyральных чисел. 4.напишите программy , в которой осyществляется ввод целых чисел , пока не бyдет введен ноль.

Answer 1

1)
Program n1;
var i: integer;
begin
for i:=1 to 5 do writeln('Иван Иванов');
end.
2)
Program n2;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln(sum);
end.
3)
Program n3;
var i,sum,n: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i*i;
writeln(sum);
end.
4)
Program n4;
var a: integer;
begin
readln(a);
while a<>0 do readln(a);
end.