Задать вопрос Регистрация
Помочь другим

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

Ответы 1

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

     

     

     

     Program chisla;

    Uses crt;

    var i,r: integer ;

    begin

         clrscr;

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

         readln(R);

         writeln;

         i:=0; 

     

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

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

     

             end;

     

         readkey;

    end.

     

     

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years