Question

Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4-значное число и
определять, является ли число счастливым или нет. Счастливое число — это такое, у
которого сумма первых двух цифр равна сумме двух последних. Например, число 1230 —
счастливое, а 1234 — нет.
На вход программы подаётся четырёхзначное натуральное число (проверку корректности
ввода проводить не надо), на выходе должно появиться одно слово - Yes (с заглавной
буквы!), если число счастливое, и No, если нет.​

Answer 1

Ответ:

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.