Предмет: Информатика, автор: 555snegha555

допоможіть будь ласка

Приложения:

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.

Похожие вопросы
Предмет: Физика, автор: erzan123z