Предмет: Информатика,
автор: FallenRob
Для заданного числа N требуется найти наименьшее число, которое начинается с определенной последовательности цифр S и делится на N. (написать программу)
Ответы
Автор ответа:
0
var n,s,a,m:longint;
begin
readln(n,s);
m:=10;
if s mod n=0 then a:=s else a:=s*10;
while a mod n<>0 do
if a mod m=(m-1)
then begin m:=m*10; a:=s*m; end
else a:=a+1;
writeln(a);
end.
Пример:
123 16
16113
begin
readln(n,s);
m:=10;
if s mod n=0 then a:=s else a:=s*10;
while a mod n<>0 do
if a mod m=(m-1)
then begin m:=m*10; a:=s*m; end
else a:=a+1;
writeln(a);
end.
Пример:
123 16
16113
Похожие вопросы
Предмет: Литература,
автор: serzhzinowjew2018
Предмет: География,
автор: marusyazak
Предмет: Другие предметы,
автор: SchokoladnuyZayaz
Предмет: Литература,
автор: Ychilkkka