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

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

Question

Нинюра

21 июля, 15:14

+5

Ответы (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Помогите написать программу, язык паскаль