Предмет: Информатика,
автор: vipsarur
Помогите с задачей по информатике прошу вас. Срочно. На паскале или на C++. Желательно все-таки на паскале
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Даны два числа A и B (0<=A,B<=100000). Напишите программу нахождения произведения числа А на все цифры числа В. Входной файл input.txt содержит два числа A и B. В выходной файл output.txt вывести одно число – произведение числа А на все цифры числа В.
Ввод 3 33
Вывод 27
Ответы
Автор ответа:
0
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.
Автор ответа:
0
Июо как для набора 3 0 Ваша программа возвращает... 3 - еще одна ошибка.
Автор ответа:
0
*Ибо
Автор ответа:
0
... и после внесения двух исправлений наши программы стали близнецами)))
Автор ответа:
0
После такого стресса хочется пойти и выпить пару кружек чаю, сегодня ошибка на ошибке, просто шок....
Автор ответа:
0
Вот для этого и существуют компьютерные игры! ))))
Похожие вопросы
Предмет: Астрономия,
автор: nadahrulenko168
Предмет: Математика,
автор: egoronysko
Предмет: Алгебра,
автор: kirillpak62
Предмет: Математика,
автор: ТУПАЙКА