Хелп! Информатика! Срочно!
Найти сумму квадратов целых чисел от 33 до 38. Cоставить программу на Паскале, используя оператор цикла For. А затем составить программу еще одним способом, используя цикл While или Repeat.
Найти сумму квадратов целых чисел от 33 до 38. Cоставить программу на Паскале, используя оператор цикла For. А затем составить программу еще одним способом, используя цикл While или Repeat.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: