В тербо паскале через while вывести ** экран наименьшие четные числа не превышающие...

Question

В тербо паскале через while вывести на экран наименьшие четные числа не превышающие заданного числа. Число вводится с клавиатуры.

Answer 1

 Видимо имеется ввиду что сумма этих чётных чисел не должна превышать R

 

 

 

 Program chisla;

Uses crt;

var i,r: integer ;

begin

     clrscr;

     write (' Введите R:');

     readln(R);

     writeln;

     i:=0; 

 

      while (i<=r) do<br>         begin
              inc(i,2);

            if (i<=r) then   write(i:3);</p>

 

         end;

 

     readkey;

end.