Программу, которая определяет кратна ли числу а сумма - вопрос №1494361 от макашария 14.05.2021 00:18

Question

Информатика: Программу, которая определяет кратна ли числу а сумма цифр двухзначного числа

макашария · Answer

var a,a1,a2,a3:integer;

begin

read(a); - читаем данное число

a1:=a mod 10;

a2:=a div 10;

a3:=a1+a2;

if a3 mod = 0 then write('да')

else(write('нет');

end.