Составьте программу выводящую на экран все чётные числа из интервала - Turbo Pascal

Формулировка задачи:

Составьте программу выводящую на экран все чётные числа из интервала [A...B].

Код к задаче: «Составьте программу выводящую на экран все чётные числа из интервала - Turbo Pascal»

textual
Program Title;
Var i, A, B :Integer;
Begin
WriteLn('Введите первое число из интервала');
ReadLn(A);
WriteLn('Введите последнее число из интервала');
ReadLn(B);
For i:=A to B do
 begin
        if i mod 2=0 then
          Write(' ',i);
  end;
ReadLn
End.

15   голосов, оценка 4.267 из 5


СОХРАНИТЬ ССЫЛКУ