Задача 3 Урок 10.1
Primary tabs
Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
var i, numb:integer; begin write('Vvedite chislo: '); readln(numb); if (numb>100)then for i:=numb downto 1 do write(i, ' ') else for i:=1 to numb do write(i,' '); readln(); end.
- Log in to post comments
- 1053 reads
vedro-compota
Thu, 08/19/2021 - 21:25
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)