Найдите сумму нечетных чисел от а до 100, а вводится - вопрос №12210192100 от nabludatel00 22.01.2022 19:01

Question

Информатика: Найдите сумму нечетных чисел от а до 100, а вводится с клавиатуры (Pascal ABC) ​

nabludatel00 · Answer

program aaa;type iint = 1..100;var a: iint;     i, s:integer;begin readln(a);s:=0;for i:=a to 100 doif odd(i)  then  s:=s+i;writeln(s)end.Объяснение:...

Найдите сумму нечетных чисел от а до 100, а вводится с клавиатуры (Pascal ABC) ​

Найдите сумму нечетных чисел от а до 100, а вводится с клавиатуры (Pascal ABC)