Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
seluchka
04.01.2020 16:10 •
Информатика
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Показать ответ
Ответ:
Клава11111
26.06.2020 01:40
var
str:string;
begin
readln(str);
if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма равна')
else write('Сумма неравна');
end.
0,0
(0 оценок)
Ответ:
ionufrijchuk
26.06.2020 01:40
Uses crt;
var x:integer;
begin
write('Введи число:');
readln(x);
if (x>=1000) and (x<=9999) then
if (x div 1000)+(x div 100 mod 10)=(x mod 10)+(x mod 100 div 10) then
writeln('yes')
else writeln('no')
else writeln('error');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kidz123
05.10.2022 00:27
Каким образом осуществлялась бы работа с БД, и какие при этом возникали проблемы, если бы не было формы....
Катя9092
21.05.2021 19:16
4. Подбери гармоничные 3 цвета. Раскрась игрушку разными в виде пирамиды....
sqerrr
13.02.2020 02:40
Выберите правильный путь к файлу : 1) 3:LIST.EXE; 2) IN3:.TXT; 3) С:\VVR\12345.BMP; 4) SPRAVKI....
Мадам44444444
11.07.2020 10:39
Какие виды компьютерной графики широко известны сегодня? *2D3D4D5D...
Вопросникыыы
26.03.2020 18:28
Программа запрашивает число n. Далее, мы вводим n чисел и сохраняем все введенные числа в список. Программа должна вывести сумму и среднее значение исключая максимальное и минимальное...
vika2075
04.03.2021 14:59
3) гигантская волна в океане», 3. Найдите в 1-м абзаце слова, ко- зторые соответствуют следующим рпереводам: «жұтып алды», «ата- влады», «негізін салушылар»,4. Какими частями речи...
nastiaX352
06.10.2021 11:30
По моему мнению, изменения в области культуры важны, так как......
HorseOfDeath
06.10.2021 11:30
№22.14 упростите выражение и найдите его его значение...
Anjelika222
19.06.2021 02:47
Что вы можете сказать о жилине на основании первых глав рассказа...
1234353234
19.06.2021 02:47
Сочинение на тему «Поступки людей»...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
str:string;
begin
readln(str);
if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма равна')
else write('Сумма неравна');
end.
var x:integer;
begin
write('Введи число:');
readln(x);
if (x>=1000) and (x<=9999) then
if (x div 1000)+(x div 100 mod 10)=(x mod 10)+(x mod 100 div 10) then
writeln('yes')
else writeln('no')
else writeln('error');
end.