Написать программу «Выделение цифр в записи числа» Дано трехзначное число. Определить, является ли сумма его цифр кратна 3 и 5.
var
a,s,n:integer;
begin
repeat
write (A =);readln(a);
until (a>=100) and (a<=999);
n:=a;
while n div 10 <> 0 do begin
n:=a;
s:=s+a mod 10;
a:=a div 10;
end;
if (s mod 3 = 0) or (s mod 5 = 0) then writeln (Yes) else writeln (No);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
