Анатолий 24 октября 2019 в 10:04
Задача в паскале. Даны два числа А и Б, где А<Б. Найти сумму квадратов ВСЕХ целых чисел от A до B включительно. Как это сделать через цикл For?
Задача в паскале. Даны два числа А и Б, где А<Б. Найти сумму квадратов ВСЕХ целых чисел от A до B включительно. Как это сделать через цикл For?
Var i, sum: integer;
for i:=a to b do
begin
sum:= sum + i*i;
writeln(sum);
end;
writeln();
writeln(sum);
for i:=a to b do
begin
sum:= sum + i*i;
writeln(sum);
end;
writeln();
writeln(sum);
Для комментирования необходимо зарегистрироваться на сайте