(35 БАЛЛОВ ИЗИ ЗАДАНИЕ!)Написать программку вычисления суммы всех нечетных двузначных

Ответ:

Разъяснение:

 var i,s:integer;

 begin

   i:=10;s:=0;

   for i:=10 to 99 do

   if i mod 2lt;gt;0 then s:=s+i;

  writeln('Сумма нечетных 2-значных чисел(for)',s);

  readln;

  i:=10;s:=0;

  while ilt;=99 do

    begin

      if i mod 2lt;gt;0 then s:=s+i;

      i:=i+1;

    end;

    writeln('Сумма нечетных 2-значных чисел(while)',s);

    readln;

    i:=10;s:=0;

   repeat

    if i mod 2lt;gt;0 then s:=s+i;

    i:=i+1;

   until igt;99 ;

   writeln('Сумма нечетных 2-значных чисел(repeat)',s);

   readln;

end.