Zhosoniv
4 год назад
Вопрос №595579 (тип: C)В первой строке вводится натуральное чило n Во второй строке вводится число BВывести на экран-слово YES, если само число и сумма его цифр кратны числу B-в противном случае вывести слово NOПример входных и выходных данных№ теста Входные данные Выходные данные 1 45545 5 NO2 5555 YES Ответ:Прикрепите файл с программой в формате CPP, PAS, CS, FS или JAVA. Ваш ответ будет проверен автоматически.
ОТВЕТЫ
Barrett Darrell
Oct 24, 2020
Program n1;
var n,b,sum: longint;
procedure sumdig(var x: longint );
begin
sum:=0;
while ( x<>0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
end;
begin
readln(n);
readln(b);
sumdig(n);
if (n mod b=0) and (sum mod b=0) then writeln('yes') else writeln('no');
end.
var n,b,sum: longint;
procedure sumdig(var x: longint );
begin
sum:=0;
while ( x<>0 ) do
begin
sum := sum + (x mod 10);
x := x div 10;
end;
end;
begin
readln(n);
readln(b);
sumdig(n);
if (n mod b=0) and (sum mod b=0) then writeln('yes') else writeln('no');
end.
798
Смежные вопросы:
