Question

Pascal ABC.Ввести двузначное число, определить равняется ли его сумма пяти.

Answer 1

Var n:integer;
begin
readln(n);
if ((n div 10)+ (n mod 10) )=5 then
writeln('Сумма равно 5')
else writeln('Сумма не равна 5');
end.