Персональный компьютер относится к средствам составления и изготовления документов — (5)
100(5) = 1*5^2 = 25(10)
100(3) = 1*3^2 = 9(10)
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
На каком языке? Turbo Pascal?
<span> FloodFill();</span>
<span><span><span>procedure FloodFill(</span></span><span><span> x: SmallInt;</span></span><span><span> y: SmallInt;</span></span><span><span> Border: Word</span></span><span><span>);</span></span></span>