Var a, b, c, d, e: real;
begin
readln(a, b, c)
writeln(c*(a/b):0:3, ' руб.');
end.
327680 - информационный вес в битах/10240(20*64*8)=32
Программа.................................................
Var ma:array[1..10,1..6] of integer;
i,j,k:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 6 do
begin;
ma[i,j]:=random(2);
write(ma[i,j]:4);
end;
end;
for j:=1 to 6 do
begin;
i:=4;
if ma[i,j]=0 then inc(k);
end;
writeln;
write('Result:',k);
<span>end.</span>