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

1)Выведите квадраты натуральных чисел не превосходящих 50. 2)Если а=10,то выйти из программы,а если меньше,то посчитать сумму этих чисел.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы