Эразм
4 год назад
Хелп Информатика Найти сумму квадратов целых чисел от 33 до 38. Cоставить программу на Паскале, используя оператор цикла For. А затем составить программу еще одним способом, используя цикл While или Repeat.
ОТВЕТЫ
Ефим
Nov 23, 2020
program a1;
var a,b: integer;
begin
for a := 33 to 38 do
begin
b:= b + (a*a);
end;
writeln (b);
end.
program a2;
var a,b: integer;
begin
a:= 33;
while a < 39 do
begin
b:= b + (a*a);
a:= a+1;
end;
writeln (b);
end.
144
Смежные вопросы:
