Ахилла
5 год назад
Пожалуйста посчитайте с задачей по информатике прошу вас. Срочно. На паскале или на C++. Желательно все-таки на паскалеОграничение времени 1 секундаОграничение памяти 64MbВвод стандартный ввод или input.txtВывод стандартный вывод или output.txt Даны два числа A и B (0<=A,B<=100000). Напишите программу нахождения произведения числа А на все цифры числа В. Входной файл input.txt содержит два числа A и B. В выходной файл output.txt вывести одно число – произведение числа А на все цифры числа В.Ввод 3 33Вывод 27
ОТВЕТЫ
Христо
Oct 24, 2020
var
a,b:int64;
Begin
Read(a, b);
if b = 0 then Writeln(0)
else begin
While b > 0 do begin
a:= a * (b mod 10);
b:= b div 10;
end;
Writeln(a);
end;
end.
a,b:int64;
Begin
Read(a, b);
if b = 0 then Writeln(0)
else begin
While b > 0 do begin
a:= a * (b mod 10);
b:= b div 10;
end;
Writeln(a);
end;
end.
516
Смежные вопросы:
