Дано 2 целых числа a и b, 2<b.Найти сумму квадрата всех чисел от a до b решить
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
комектесиндерш лайк басам или лучший ответ дим
Автор: fellybrossme
Определите среднее арифметическое двух чисел, если а положительное и Частное (a/b) в противном случае. Очень
Автор: Александра_Наталья1417
Как вывести в Pascal слово, идущее после запятой?
Автор: oknacrow
Кімде жауабы бар беріңдерші
Автор: Bolshakova Shigorina
уже сегодня нужно закончить
Автор: perovd8111
Надо напистаь код в dev c++
Автор: rnimsk149
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.