Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
555Maura555
07.10.2022 15:32 •
Информатика
Сумма двух первых чисел заданного четырехзначного числа равна сумме двух его последних цифр
Показать ответ
Ответ:
mr7ka
17.09.2020 20:57
Program prim;
var n,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n div 1000 + n div 100 mod 10;
s2:=n mod 100 div 10+n mod 10;
if s1=s2 then writeln(s1,'=',s2) else writeln(s1,'<>',s2)
end.
Пример работы:
n=1345
4<>9
0,0
(0 оценок)
Популярные вопросы: Информатика
afdsfdsafdsfdsf
23.04.2020 20:59
с информатикой надо записать программу на паскале кто понимает буду очень благодарна Рассматривается множество целых чисел, принадлежащих числовому отрезку [1529;...
ботан777
20.03.2022 16:46
Пользователь работал с папкой Участники. Сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз, потом ещё раз спустился на один уровень...
lassdeavs
03.03.2023 18:24
Сделать хотя бы один из них но желательно два вас 1. запишите на языке паскаль программу, которая вычисляет сумму кодов букв в слове память . 2. составьте программу...
ayskamaska
03.03.2023 18:24
Числа 1) 2134 2) -2134 3) fac3 1) получить двоичную форму внутреннего представления целого числа в 2-х байтовой ячейке 2) получить шестнадцатеричную форму внутреннего...
vadimamaniya
03.03.2023 18:24
Переведите целые числа из десятичной системы счисления в восьмеричную и выполните проверк а)789 б)12fil...
zhanik2017
16.02.2020 10:39
2. Опишите модель решения поставленной задачи.a) Входные данные программы b) Выходные данные программыc) Цель проектирования программыd) Назначение программы e)...
KVika65
11.09.2022 20:42
Три одноклассника — Вадим, Виктор и Том — встретились спустя 14 лет после окончания школы.Выяснилось, что один из них стал актёром, другой физиком, а третий юристом.Том...
vovan8881
04.09.2022 18:12
бжб информатика ІІ нұсқа Тапсырмалар: 1. Төменде берілген сөйлемдегі 1 және 2 деген сандардың қолданылу мақсатын анықтаңыз компютер куралган негызгы1 жане косымша...
464679рли
26.10.2020 23:31
1. Вставьте пропущенные слова.(3) А) используются в документах, чтобы дать пояснения и комментарии к тексту, а также указать источник сведений. В) это право на...
1939345
02.08.2021 20:47
Составить блок схему определить, является ли натуральное число, введенное с клавиатуры в память компьютера, четным. результат показать на экране в виде сообщения...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n div 1000 + n div 100 mod 10;
s2:=n mod 100 div 10+n mod 10;
if s1=s2 then writeln(s1,'=',s2) else writeln(s1,'<>',s2)
end.
Пример работы:
n=1345
4<>9