урок 10 задача 2
Primary tabs
Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания
Иначе в порядке убывания
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
- 1199 reads
vedro-compota
Sat, 02/26/2022 - 10:55
Permalink
Проверить код для пар
Проверить код для пар значений:
-- должны увидеть все числа от 10 до 20, и для:
-- все числа от 20 до 10 в обратном порядке
_____________
матфак вгу и остальная классика =)
isaac_fan
Sat, 03/12/2022 - 10:44
Permalink
var y, t:integer;
vedro-compota
Sat, 03/12/2022 - 10:33
Permalink
должны быть ведены все числа
должны быть ведены все числа между указанными двумя, которые ввел пользователь
_____________
матфак вгу и остальная классика =)