1. Информатика
  2. Напишите программу для pascal.

Напишите программу для pascal. пользователь с клавиатуры вводит любое четырехзначное число необходимо определить равна ли сумма тысяч и десятков сумме сотен и единиц и вывести соответствующий ответ на экран например: 3671 -нет 3641 -да

egoregorcherk egoregorcherk    2   21.06.2019 16:20    0

Ответы
arinasinger arinasinger  17.07.2020 07:24
Var a:integer;
begin
readln(a);
if(a div 1000 + (a div 10) mod 10 = a mod 10 + (a div 100) mod 10) then writeln('yes')
else writeln('no');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mirnayamilena mirnayamilena  24.02.2022 18:29
Алгоритмы и система команд исполнителя конспект...
zuhranormatova0 zuhranormatova0  13.04.2019 15:03
Кенгуру находится на координатной оси ох в точке 0. ему надо попасть в точку х. вам дано n чисел - длины его прыжков. кенгуру может прыгать, как вправо так и влево. выведите...
avatar789456123 avatar789456123  13.04.2019 14:44
Люди, что можно написать в перспективы проекта? (проект сайт по информатие)...
svyatkin111 svyatkin111  19.03.2021 08:12
проверить утверждение о том что результатами вычислений по формуле x²+x+17 при 0≤x≤15 является простые числа. все результаты вывести на экран​...
Mohim Mohim  19.03.2021 08:09
ЗАДАНИЕ №4 ВРЕМЯ НА ВЫПОЛНЕНИЕ:11:08ТЕКСТ ЗАДАНИЯКаково назначение гироскопического датчика? НазадВперед​...
кошка372 кошка372  18.11.2021 07:32
Последовательность 50 натуральных чисел начинается с N, а сумма всех её элементов делится на N. Какое наибольшее значение может принимать N?...
MishaNY2001 MishaNY2001  18.11.2021 07:31
Основна думка стрілецької пісні ,,Ой у лузі червона калина похилилася,, ....
1406052005 1406052005  18.11.2021 07:30
Потяг починає рухатися зі швидкістю 5 км/год і через кожні наступні 3 с його швидкість зростає на 4% від попередньої. Розробіть алгоритм і програмний код визначення: через...
liza1392 liza1392  18.11.2021 07:30
Скільки води можна нагріти від 20 С до кипіння, спаливши 50 г гасу?...
SavchukAndrew SavchukAndrew  18.11.2021 07:30
Бунин получил Пушкинскую премию за...

Популярные вопросы