Предмет: Информатика, автор: Margo57

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

Ответы

Автор ответа: антагонист
0
var a,b,c: integer;begin 
  a:=1; 
 while a<100 do 
  begin
   c:=c+a;
   a:=a+1;
   end; 
  writeln(c);
end.
Похожие вопросы
Предмет: Литература, автор: elnarasulejmanova426