Напишите програму для паскаля таким образом чтобы она складывала 7 квадратичных чисел с 1 и нечетные по возрастанию ( 1 3 5 ...)

15 Дек 2019 в 19:49
198 +1
0
Ответы
1

program SumOfOddSquares;

var
i, sum, oddNumber: integer;

begin
sum := 0;
oddNumber := 1;

for i := 1 to 7 do
begin
sum := sum + oddNumber * oddNumber;
oddNumber := oddNumber + 2;
end;

writeln′Сумма7квадратичныхнечетныхчиселс1:′,sum'Сумма 7 квадратичных нечетных чисел с 1: ', sumСумма7квадратичныхнечетныхчиселс1:,sum;
end.

18 Апр 2024 в 23:28
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир