Найдите сумму положительных нечетных чисел, меньших 100

Помогите написать программу, язык паскаль

Question

Кося

16 апреля, 01:08

+2

Ответы (1)

Знаете ответ?

Ареф · Answer 1

Program abc;

Var a, s:integer;

begin a:=1;

while a<100 do

begin

s:=s+a;

a:=a+2;

end;

writeln ('Сумма чисел ', s) ;

readln;

end.

Найдите сумму положительных нечетных чисел, меньших 100Помогите написать программу, язык паскаль