<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2;
if b=0 then Writeln(0)
else begin
var p:int64:=a;
while b>0 do begin
p*=b mod 10;
b:=b div 10
end;
Writeln(p)
end
end.
<u>Пример</u>
2342 8945923
182113920
Жили были клавиши WASD и работали они всё время всё время , но вот когда пришло время экзаменов. Пришёл отец и сломал клавиатуру .Мораль сей сказки такова , готовься к экзаменам , а не играй с клавишами WASD.
База отправлена на почту, если нужна еще кому то, стучаться в личку.
program test;
var a:array [1..20] of integer;
min, i, imin: integer;
begin
min:=a[19];
imin:=19;
for i:=1 to 20 do begin
a[i]:=random (151)+150;
write (a[i]:4);
end;
writeln;
for i:=19 downto 1 do begin
if a[i]<min then begin imin:=i; min:=a[i]; end;
end;
write (imin);
writeln;
write (a[imin]);
end.