Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
SOV20
30.07.2022 17:53 •
Информатика
С! дано четырехзначное число.определить,верно ли ,что произведение первой и второй цифр равно произведению третьей и четвертой. программа: free pascal
Показать ответ
Ответ:
Kristin32
07.07.2020 09:30
Program z1;
var a,a1,a2,a3,a4:integer;
begin
write('a=');readln(a);
a4:=a mod 10;
a:=a div 10;
a3:=a mod 10;
a:=a div 10;
a2:=a mod 10;
a1:=a div 10;
if a1*a2=a3*a4 then begin
writeln('Yes')
end
else begin
writeln('No')
end;
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Aluniy
22.05.2020 21:37
По информатике. полученные информационное сообщение имеет длину в 140 символов. каждый из символов кодируется 5 битами информации. найдите информационный объем сообщения....
ZAKHARRROVA20001
19.02.2023 00:43
1)описать свою систему счисления , пример двух чмсел ,сделал их развернутую запись ,найти десятичный эквивалент. 2)выполнить перевод следующих чисел в десятичную систему счисления...
Сильнолол
22.06.2022 23:45
IP адреса , самостоятельная работа...
Катерина26121
22.06.2022 23:45
Задание 1. Используя алгоритм и примеры из учебника, переведите числа a10 из десятичной системы счисления в заданную систему счисления с основанием n – an. Решение запишите...
DarthMalgus
27.04.2020 14:06
Сколько различных кодовых слов длиной 3 символа можно получить с алфавита {@, #, &}...
zarrrubinka
16.06.2020 21:53
Как пишется вместе или раздельно повезло...
eegorov1996
16.06.2020 21:53
Сделайте синтаксический разбор предложения я слез в канаву и, согнав впившегося в середину цветка и сладко и вяло заснувшего там мохнатого шмеля, принялся срывать цветок...
Софи1138
16.06.2020 21:53
Свершин горы бежит,подпрыгивает на камнях ручей и отзывается далёким звоном где-то в глубине леса .синтаксический разбор предложения перед последнем рейсом нагрянула снежная...
Серг4й
16.06.2020 21:53
Вформе чего были построены войска рыцарей на чудском озере: кошки свиньи собаки тигра...
refddk
16.06.2020 21:53
Сообщение на тему какую роль выполняют глаголы в нашей речи...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,a1,a2,a3,a4:integer;
begin
write('a=');readln(a);
a4:=a mod 10;
a:=a div 10;
a3:=a mod 10;
a:=a div 10;
a2:=a mod 10;
a1:=a div 10;
if a1*a2=a3*a4 then begin
writeln('Yes')
end
else begin
writeln('No')
end;
readln
end.