Дано 2 целых числа a и b, 2<b.Найти сумму квадрата всех чисел от a до b решить
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
не проходите мимо НАДО РЕШИТЬ НОМЕР 14, КРОМЕ 4) и 5)
Автор: roman-fetisov2005
Представьте слово home в двоичном коде
Автор: Алина1564
Как выделить блок в таблице
Автор: randat887040
Выпишите составляющие внутренней памяти BIOS ПЗУ FLASH КЭШ
Автор: Коновалова1705
var a,b,i,kvadrat: integer;
begin
writeln('Введите числа a и b (a должно быть меньше b)');
readln(a,b);
for i:=a to b do
begin
kvadrat := i*i;
writeln('Квадрат числа ',i,' = ',kvadrat);
end;
end.