Предмет: Информатика,
автор: Аноним
Даны два целых числа A и B (A<B). Найти сумму квадратов всех целых чисел от A до B включительно.
Надо нарисовать блок схему(я вроде нарисовала,но сказали что там есть ошибка)
и написать программу надо
Приложения:
Ответы
Автор ответа:
0
var
a,b,i:integer;
s:longint;
begin
repeat
write('Vvedite chisla a,b=');
readln(a,b);
until a<b;
s:=0;
for i:=a to b do
inc(s,sqr(i));
writeln('Summa kvadratov=',s);
end.
Приложения:
Интересные вопросы
Предмет: География,
автор: Аноним
Предмет: Другие предметы,
автор: Аноним
Предмет: Английский язык,
автор: mishakor36
Предмет: Математика,
автор: koketka80
Предмет: Биология,
автор: Dimchikus