урок 13.1 задача 15
Primary tabs
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат
:program Project1; var i,j:integer; begin writeln('ведите целое число'); readln(i); if (i=8) or (i>8) or ((i mod 2 )=0) then for j:=1 to i do writeln(j); readln(); end.
- Log in to post comments
- 2284 reads
vedro-compota
Mon, 07/25/2022 - 20:19
Permalink
1) сообщения об ошибке тут
1) сообщения об ошибке тут нет
2)
-- можно записать короче
_____________
матфак вгу и остальная классика =)
isaac_fan
Tue, 08/02/2022 - 13:52
Permalink
:program Project1;
isaac_fan
Tue, 08/09/2022 - 17:37
Permalink
2
vedro-compota
Tue, 08/23/2022 - 20:06
Permalink
вообще не запускается
вообще не запускается
-- есть лишнее присваивание
_____________
матфак вгу и остальная классика =)
isaac_fan
Tue, 08/09/2022 - 17:34
Permalink
вот 1 решение
vedro-compota
Tue, 08/23/2022 - 19:58
Permalink
ничего не выводит, проверить
ничего не выводит, проверить
_____________
матфак вгу и остальная классика =)
isaac_fan
Mon, 08/29/2022 - 21:16
Permalink
var