Question

1)Выведите квадраты натуральных чисел не превосходящих 50.
2)Если а=10,то выйти из программы,а если меньше,то посчитать сумму этих чисел.

Answer 1

program deece;
const n=10;
var i:integer;
begin
for i:=1 to n do
if i*i<50 then writeln(i,'*',i,'=',i*i);
end.

program deece;
var a,b,c:integer;
begin
writeln('Введите числа:');
write('a='); read(a);
write('b='); read(b);
write('c=');read(c);
if a=10 then exit else if a<10 then a:=a+b+c;
end.