Александр
5 год назад
Пожалуйста посчитайте пожалуйста .Сделайте программу .Найти сумму квадратов чисел от 10до 30 .Квадраты чисел выводить ,а сумму вывести только результат.
ОТВЕТЫ
Nadezhda
Oct 24, 2020
var i, sumSqr: integer;
begin
for i := 10 to 30 do
begin
write(sqr(i):4);
sumSqr := sumSqr + sqr(i);
end;
writeln;
writeln('Сумма квадратов чисел от 10 до 30 = ', sumSqr);
end.
begin
for i := 10 to 30 do
begin
write(sqr(i):4);
sumSqr := sumSqr + sqr(i);
end;
writeln;
writeln('Сумма квадратов чисел от 10 до 30 = ', sumSqr);
end.
- можешь подсказать ,зачем ты писалаwriteln; без ничего,тоесть ты хотела вывести это на экран?
659
Смежные вопросы:
