olyakak00Fokcu
23.04.2022 10:10

Написать программу по : автомат получает на вход четырехзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа -сумма двух старших и сумма двух младших разрядов. 2. полученные два числа записываются друг за другом в порядке невозрастания (без разделителей).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
chuckcher
05.10.2020 16:25
Var
A,B:integer;
Begin
ReadLn(A);
B:=(A div 1000) + ((A div 100) mod 10);
A:=((A div 10) mod 10)+ (A mod 10);
if A>=B then Write(B,A)
else if B>=A then Write(B,A)
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота