Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Rhhufyko
05.10.2021 03:43 •
Информатика
Написать на pascal программу. определить ,являеться ли число n четным двузначным числом
Ответ:
ForeverDiman
06.10.2020 13:41
Program NekitZor;
var N:integer;
begin
write('Введите число N:');
readln(N);
if (N mod 2 = 0)and (N div 100 < 1) and (N>9) then write('Данное число двузначное') else if (N div 100 <1) and (N>9) then write ('Данное число не четное двузначное')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nurik01viper
02.03.2023 08:41
1)напишите программу, которая находит в массиве количество элементов, делящихся на 5. 2)напишите программу,которая находит среднее арифметическое всех элементов, массива которая...
tlplusp02d7u
09.08.2022 04:56
Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: роняет лес багряный свой убор сребрит мороз увянувшее...
Назерке2707
28.11.2020 23:47
Написати програму виведення на екран усіх дільників заданого числа N.Пояснення: при N=10 дільники 1 2 5при N=50 дільники 12 5 10 25N=int(input( N= )) # вводимо з клавіатури число...
romasivtsov
11.04.2023 15:46
Расчитайте обьем видиопамяти,необходимой для хранения графического изображения,занимающего весь экран монитора с разрешением 640x480 и колличеством отображаемых цветов,равным 65...
jyljokgorsheni1
11.04.2023 15:46
По восприятия человеком различают следующие виды информации: а)текстовую, числовую, графическую, табличную и пр. б)научную, социальную, политическую, , религиозную и пр. в)обыденную,...
1234567890dd
09.10.2020 19:02
Вывести на экран нечётные числа из промежутка от 3 до 27....
flak202
09.10.2020 19:02
Вася создал на рабочем столе папку, которую назвал дни недели. в этой папке создал 7 папок: понедельник,вторник,среда и так далее. после чего открыл папку вторник и создал в ней...
hopik2
09.10.2020 19:02
Напишите программу для вычисления коэффицента естественного прироста населения по формуле : к=((а-в)/с)*1000; где к-коэффицент естественного прироста населения (в процентах),а- количество...
alisabeletzkay
13.04.2021 09:56
Разработать вычисленные суммы и произведение только положенных из вводимых 4 вывода суммы и произведения язык c...
STavctva
05.10.2021 16:31
Написать программу с использованием цикла while, выводящую на экран все числа в диапазоне от a до b паскаль...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var N:integer;
begin
write('Введите число N:');
readln(N);
if (N mod 2 = 0)and (N div 100 < 1) and (N>9) then write('Данное число двузначное') else if (N div 100 <1) and (N>9) then write ('Данное число не четное двузначное')
end.