Паскаль!!! срочно напишите программу, только используйте цикл.
Найти сумму квадратов всех целых чисел от a до b (значения a и b вводятся с клавиатуры, b≥a)
More Questions From This User See All
Паскаль!!! срочно напишите программу, только используйте цикл.
Найти сумму квадратов всех целых чисел от a до b (значения a и b вводятся с клавиатуры, b≥a)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
i, a, b, sum : integer;
begin
read (a, b);
sum := 0;
for i := a to b do
sum := sum + sqr (i);
writeln (sum);
end.
program ex1;
var
i, a, b, otvet : integer;
begin
read (a, b);
otvet := 0;
for i := a to b do
otvet :=otvet +i*i ;
writeln ('otvet=',otvet);
end.