Написать программу в паскале.
Задано четырёхзначное число а. Разбить его на два двухзначных числа х и у. Определить будет ли сумма цифр числа х равняться сумме цифр числа у. Если да, то вывести фразу а - «счастливое число».
Срочно.
csharp:
Разбить как? На два двузначных множителя? Или по 2 цифры?
Ответы на вопрос
Ответил raf1O5
1
program raf105;
var
abcd,ab,cd,a,b,c,d: integer;
begin
write('Введите четырёхзначное число: ');
readln(abcd);
ab:= abcd div 100;
cd:= abcd mod 100;
a:= ab div 10;
b:= ab mod 10;
c:= cd div 10;
d:= cd mod 10;
if a+b = c+d then writeln('Счасливое число');
end.
PascalABC
Новые вопросы
Литература,
1 год назад
Математика,
1 год назад
География,
1 год назад
Математика,
1 год назад
Українська мова,
6 лет назад