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

Ответы (1)

Влодимир 10.10.2025 0
program deece;const n=10;var i:integer;beginfor i:=1 to n doif i*i50 then writeln (i,'*', i,'=', i*i) ;end.program deece;var a, b, c:integer;beginwriteln ('Введите числа:') ;write ('a=') ; read (a) ;write ('b=') ; read (b) ;write ('c=') ; read (c) ;if a=10 then exit else if a10 then a:=a+b+c;end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ