Предмет: Информатика,
автор: valovamarina
Вычислите сумму квадратов всех целых чисел из промежутка от A до B (A<B).
Нужно написать программу в Паскале
Ответы
Автор ответа:
0
var a,b,s:integer;
begin
read(a,b);
for a:=a to b do
s+=a*a;
writeln(s);
end.
begin
read(a,b);
for a:=a to b do
s+=a*a;
writeln(s);
end.
Автор ответа:
0
Спасибо!!!!!!!!!!
Похожие вопросы
Предмет: Русский язык,
автор: ulasasergeeva
Предмет: Алгебра,
автор: EdwardTim
Предмет: Алгебра,
автор: anonimnikon
Предмет: Геометрия,
автор: Kama13
Предмет: Алгебра,
автор: kaimakova