С:= 0
for i := 1 to 9 do
if A[1] (7) < A[0] (4) then begin
c = 0
end;
V = U*T
U = 9216 байт/сек = 9 КБ/сек
T = 1 мин = 60 сек
V = 9 * 60 = 540 КБ
--------------------------------------
V - объем файла
U - скорость передачи данных
T - время
55 в десятичной символ 134
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.