tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу, определяющую,
Составить программу, определяющую, является ли данное утверждение истинным: двузначное число а начинается на 3 составить программу, определяющую, является ли данное утверждение истинным: ровно одно из чисел а и в не превышает 100
Oven463
1 17.06.2019 22:50
1
Ответы
Snihdsfg
14.07.2020 19:39
1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Артёмка99999999
21.04.2020 20:56
Пользователь вводит номер месяца, вывести название месяца....
AnTonDPR
21.04.2020 20:56
Продам аккаунт Бравл старс 28 бойцов все эпики все сверхредкие все редкие 3мифика много скинов донатил много много гаджетов 1лега...
2002dima14
21.04.2020 20:56
1.Если при изменении позиции ячейки меняеться только номер строки а столбец остаеться постоянным , то такая сылка называеться :1. относительная 2. абсолютная 3. смешанная2. Укажите...
mila2086
09.06.2019 17:10
Протабулировать 1 функцию на интервале [a, b] с шагом h=0.01. вот формула f(x)=sin(x+3)/(x+3)^(2/3). найти сумму значений функции в каждой точке подробно описать решение и алгоритм....
DarinaUSA
28.08.2019 09:10
Объясните, почему информатика считается «меганаукой?...
dary090
20.09.2019 23:20
Напишите сочинение на тему: ,,что такое доброта буду ))...
rezeda231281
20.09.2019 23:20
Длина окружности равна 120,89 см. значение числа π≈3,14. определи радиус данной окружности (с точностью до сотых)....
younactja228
20.09.2019 23:20
Почему я выбрала эту тему для реферата игуаны и ящерицы я выбрал данную тему потому,...
жанна425
20.09.2019 23:20
Сопротивление 20 ом 60 ом 40 ом. напряжение на участке 12 в. найти силу тока в каждой ветви и в неразветвленной части цепи. найти сопротивление всего участка. !...
casio007001
20.09.2019 23:20
Две сосны растут на расстоянии 20 м одна от другой. высота одной сосны 27 м, а другой - 12м.найдите расстояние (в метрах) между их верхушками ....
Популярные вопросы
Сколько метров и сантиметров в 8335...
1
Написать сочинение против изучение языка ....
1
1200 мл. сколько это литров? и сколько стаканов воды?...
2
Заполните таблицу этапы холодной войны 1)этап 2)период 3)локальные конфликты...
3
Впараллелограмме abcd бессектриса al угла a делит сторону bc на отрезки bl=3см,lc=5см.найдите...
1
Дан ряд букв: я, ь, ч, р. какая буква следующая?...
3
Найти однокоренные члены к листья кружатся...
1
4.за префіксів і суфіксів утворіть нові слова від поданих. берег, колосся,...
1
Какие часы показывают точное время только 2 раза в сутки...
2
Синтаксический и пунктуационный разбор простого и сложного предложений.примеры...
2
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
end.