tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу для
Напишите программу для решения определить является ли данное число n чётным двухзначным числом
btsakhaev
1 03.08.2019 19:30
0
Ответы
соаовоых
03.10.2020 20:47
Var
n: integer;
begin
readln(n);
writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.
ПОКАЗАТЬ ОТВЕТЫ
Няшка1love
03.10.2020 20:47
Var
n,
check_n,
: integer;
flag : boolean;
Begin
write('Введите чило');
readln(n);
{Проверяется, является ли n четным}
if n mod 2 = 0
then
flag = true;
else
flag = false;
{Проверяется, является ли n двухзначным}
if n div 10 <> 0
then
flag = true;
else
flag = false;
if flag
then
writeln('Число ', n, ' является четным двухзначным');
else
writeln('Число ', n, ' не является четным двухзначным');
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
raniskarimov2
19.11.2020 13:16
тема моделювання за місячне кортстування інтернетом господар заплатив певну кількість коштів.Яка ціна користування однієї хвилини інтернетом...
малыш008
25.05.2020 17:59
Имеется ромб с диагоналями d1 и d2. Изобразите этот ромб в консоли при знаков *. Язык программирования - C#....
Nialya2727
25.05.2020 17:58
Задача 4: Американские горки Аттракцион «Американские горки» представляет собой рельсовый трек, размещённый на опорах. Известна высота каждой опоры. Для рекламы аттракциона...
valerijarukavitsona
26.02.2021 12:17
4. Створіть процедуру опрацювання події натиснення кнопки Визначити. У вікні редактора коду введіть програмний код (мал. 24.7). Зверніть увагу на структуру команди розгалуження....
Shkolnik228007
16.07.2019 03:50
Сколько компьютеров (хостов) может быть в сети с маской. учтите, что два адреса не используются (адрес подсети и широковещательный адрес). 255.255.252.0...
1039лчдвб
16.07.2019 03:50
Соберите правильный ip-адрес из четырех фрагментов: 2.122 .32 24 2.22...
gazelle116
16.07.2019 03:50
Музыкальная запись выполнена в формате cdda (частота дискретизации 44100 гц, 16 бит, стерео) и имеет продолжительность 19 мин 20 cек. сколько секунд займет передача этой записи...
Буторин1306
24.06.2019 05:10
Перевести числа в двоичную систему счисления: 107 и 138 вычислить сумму чисел в двоичной системе: 111001010 и 101110 перевести в десятичную систему счисления: 110011...
OskarWild
24.06.2019 05:10
Перед отключением компьютера информацию можно сохранить...
Marinkasmirnova
07.04.2020 23:12
Вага лижника разом із лижами дорівнює 600 Н, площа опори однієї лижі – 1000 〖см〗^2. Чому дорівнює тиск, який чинить лижник на сніг?...
Популярные вопросы
Найдите меньшую высоту данного треугольника со сторонами 5 см, 12 см, 13...
2
Fill in the blanks with using: CAN - Can t - Could - couldn t - didn t need...
2
с геометрией (Если можно то все или только 1,2)...
1
4. Оцените личность одного из лидеров восстания на выбор (С.Датулы, И.Тайманов,...
1
укажите пару элементов, атомы которых в основном состоянии содержат равное...
2
Люди у кого есть такая мафия, можете ответить на вопрос сколько и каких карточек...
2
Test English please help me...
2
9. Покажите, что противолежащие стороны прямоугольника параллельны? 10. Приведите...
2
Найдите сумму дробей чтобы были использованы задачи выше...
3
Group presentations текст нужно на английском языке...
2
n: integer;
begin
readln(n);
writeln((n mod 2 = 0) and (n div 10 > 0) and (n div 100 = 0));
end.
n,
check_n,
: integer;
flag : boolean;
Begin
write('Введите чило');
readln(n);
{Проверяется, является ли n четным}
if n mod 2 = 0
then
flag = true;
else
flag = false;
{Проверяется, является ли n двухзначным}
if n div 10 <> 0
then
flag = true;
else
flag = false;
if flag
then
writeln('Число ', n, ' является четным двухзначным');
else
writeln('Число ', n, ' не является четным двухзначным');
End.