Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
93angela93
26.04.2022 10:20 •
Информатика
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр
Показать ответ
Ответ:
abogdanov94
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 оценок)
Ответ:
tdv84
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 оценок)
Популярные вопросы: Информатика
Pan4ugan
07.07.2021 22:12
На с Родители разрешили мальчику Косте выбрать себе игрушку. Костя идет вдоль полки, на которой стоят наборы солдатиков. При том в первом наборе X солдатиков, во втором X+1,...
Dikaya24
02.05.2021 10:30
1)Нарисовать взвешенный граф 2)построить таблицу(весовая матрица)...
grigorievatany
13.08.2021 18:33
Найдите ошибку в данной программе...
dadert1
06.08.2020 15:18
Вариант 21. дан массив В(3:3) необходимо элементы последней строки обменять значениями с элементами одной из диагоналей, определить сумму элементов первого столбца.2. дан шар,...
roksanaatalan
25.02.2023 23:19
Определить значение переменной N после выполнения фрагмента алгоритма N=45 R=11...
dianarudak
01.07.2021 03:38
Сделайте очень нужно ...
viptimoshe1
24.05.2020 05:38
Калай болад айтындарш БЖБ...
vladik883763
25.05.2022 13:08
информатика, 7 класс, круги Эйлера ...
Tiktak222
30.01.2020 04:58
периметр равнобедренного треугольника равен 20 см. Его Боковая сторона в два раза больше основания. найдите стороны этого треугольника. А можно чертеж и краткая запись...
артёмсухааннеков
03.03.2021 07:26
очень время поджимает Полезная мощность дизельного двигателя 500 л.с., КПД 35%. Сколько тонн топлива необходимо такому двигателю на 10 дней бепрерывной работы? Удельная теплота...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.