Регистрация
Pwp790
01.05.2021 23:21
Информатика
Есть ответ 👍

Написать программу «выделение цифр в записи числа» дано трехзначное число. определить, является ли сумма его цифр кратна 3 и 5.

262
500
Посмотреть ответы 2

Ответы на вопрос:

kononovadm
kononovadm
4,6(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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Андрей68456532367
Андрей68456532367
4,6(79 оценок)

4 миллиона

Объяснение:

Это же логично.

Популярно: Информатика