Войти Регистрация Спроси ai-bota

Напишите программу, которая определяет, верно ли, что введённое число -– трёхзначное

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

000конфета000

07.02.2023 07:42

Исправьте ошибки в записи 1. If a 0 then a=5; 2. x=5 then a:=sqr(x); b:=sqrt(x) else write(x); 3. If a:=0 then x=1 else x=5; 4. If 0 5. If x =yelse y:=x*x then x:=y*y; 6. If a=0 else...

kjigun

10.04.2023 15:30

Выбрать правельный вариант ответа...

grange

13.07.2020 04:25

Бутылка воды стоит 9.20 грн. пустая бутылка стоит 0.75 коп и на полученные деньги опять покупается вода.сколько бутылок можно купить на s грн...

DizlPlayS

23.04.2023 01:06

Бутылка воды стоит 9.20 пустая бутылка воды сдаётся по 75 коп сколько бутылок воды можно купить на полученные деньги ...

ник230903

14.12.2022 01:53

Информационный объём текста подготовленного с компьютера, равен 3,5 Мегабайт. нужно найти сколько символов содержит этот текст, если используется восьмиразрядная кодировка...

olesyavod45

26.04.2020 10:12

Aid1 -Уровень АВыполните программу на ком-пьютере. Какие действия быливыполнены?в программе Scratch можновыбрать несколько костюмов, Обуясните причину.1 -11 сУровень вСоздайте в программе...

Машина0

09.09.2020 18:33

отдаю Ниже приведены за к поисковому серверу. По всем за было найдено разное количество страниц. Расположите за в порядке убывания количества страниц, которые нашёл поисковый сервер...

bockovickof

19.01.2021 08:14

Перечислить какие инструменты использовались для построения следующей фигуры...

ппам

09.03.2021 20:20

Чему равна переменная a после выполнения цикла? a = 1; for i = 13 downto 5 do a = a + 1;...

victoriyasergi

22.10.2021 12:12

Расшифруйте код плс: 01001111 01010100 01000001 0100111001010010 01001111 01000100 01001001 01001110 01000001 01001000 01001111 01001101 01000101 01001100 01000001 01001110 01000100...

Ответ:

dinoirino18

05.10.2020 00:01

Lg 2 - x=0 07 1 С/П 0 С/П

Ввод: число С/П.

Вывод: 1, если трёхзначное, 0, если нет.

0,0(0 оценок)

Ответ:

234432343342

05.10.2020 00:01

Begin
WriteLn(ReadInteger() in [100..999]);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку