Найдите сумму нечетных чисел от а до 100, а вводится - вопрос №12210192100 от LeraJorge 18.04.2023 10:25

Question

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

LeraJorge · 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)