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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник