Решение задачи №3 из главы 10.1
Primary tabs
Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до $1$, иначе же все числа от $1$ до этого числа.
var i, a:integer; begin writeln('Input integer'); readln(i); if(i > 100) then begin for a := i downto 1 do writeln(a); end else for a := 1 to i do writeln(a); end.
- Log in to post comments
- 921 reads
vedro-compota
Mon, 12/14/2020 - 13:39
Permalink
при оформлении задачки ещё
при оформлении задачки ещё нужно обязательно ссылку на урок добавлять (для удобства проверки)
_____________
матфак вгу и остальная классика =)