Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4-значное число и
определять, является ли число счастливым или нет. Счастливое число — это такое, у
которого сумма первых двух цифр равна сумме двух последних. Например, число 1230 —
счастливое, а 1234 — нет.
На вход программы подаётся четырёхзначное натуральное число (проверку корректности
ввода проводить не надо), на выходе должно появиться одно слово - Yes (с заглавной
буквы!), если число счастливое, и No, если нет.
определять, является ли число счастливым или нет. Счастливое число — это такое, у
которого сумма первых двух цифр равна сумме двух последних. Например, число 1230 —
счастливое, а 1234 — нет.
На вход программы подаётся четырёхзначное натуральное число (проверку корректности
ввода проводить не надо), на выходе должно появиться одно слово - Yes (с заглавной
буквы!), если число счастливое, и No, если нет.
More Questions From This User See All
Answers & Comments
Ответ:
var A,s1,s2: integer;
begin
write('Введите число: '); readln(A);
s1 := (A div 1000) + (A div 100) mod 10;
s2 := (A div 10) mod 10 + A mod 10;
if s1 = s2 then writeln('Yes')
else writeln('No');
end.