Question

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

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.