Предмет: Информатика,
автор: 555snegha555
допоможіть будь ласка
Приложения:
![](https://files.topotvet.com/i/d18/d18183e9e0e5a745e2c0cd7a3fd77f0e.png)
555snegha555:
мова Pascal
Ответы
Автор ответа:
1
Ответ:
program IsNumInRange0to100;
var
flag : Boolean;
x : Integer;
begin
readln(x);
if (x > 0) and (x <= 100) then
flag := true
else
flag := false;
writeln(flag);
end.
Похожие вопросы
Предмет: История,
автор: rysmendyersultan
Предмет: Физика,
автор: erzan123z
Предмет: Математика,
автор: dazhe3ha4
Предмет: Обществознание,
автор: kristayat
Предмет: МХК,
автор: Xquxn