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

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Wed, 02/23/2022 - 19:54

Forums:

урок 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.
  • Log in to post comments
  • 2350 reads
vedro-compota's picture

vedro-compota

Sat, 02/26/2022 - 10:55

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

10 20

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

20 10

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

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

isaac_fan's picture

isaac_fan

Sat, 03/12/2022 - 10:44 

var y, t:integer;
begin

 writeln('Введите целое число y');
readln(y);
 writeln('Введите целое число t');
readln(t);
if(y>t) then

    writeln(for y to  t do);
 readln()
else
if (for t dowto do   y);
readln();
end.
vedro-compota's picture

vedro-compota

Sat, 03/12/2022 - 10:33

должны быть ведены все числа между указанными двумя, которые ввел пользователь

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