Урок 10 задача 2

Урок 10 задача 2

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания
Иначе в порядке убывания

program Project1;
var y, t:integer;
begin
 writeln('Введите целое число y');
 writeln('Введите целое число t');
  if ( y > t) then
    for y to t do
  else
    for y downto t do
 readln()
end.             
vedro-compota's picture

Проверить код для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

20 10

-- все числа от 20 до 10 в обратном порядке

_____________
матфак вгу и остальная классика =)

program Project1;
var y, t:integer;
begin
 writeln('Введите целое число y');
 readln(y);
 writeln('Введите целое число t');
 readln(t);
  if ( y > t) then
    for y to t do
     writeln ('Первое число самое большое')
  else
    for y downto t do
     writeln ('Второе число самое большое')
 readln()
end.              
vedro-compota's picture

выведите на экран все числа между ними

-- решить по условию

_____________
матфак вгу и остальная классика =)