Первый кратный элемент заменяется на 0
const
n = 10;
var
a : array [1..n] of integer;
i,m : integer;
begin
for i := 1 to n do
a[i] := i;
m := 0;
i := 1;
while (m = 0)
and (i<=n) do
begin
if a[i] mod 3 = 0 then
begin
a[i] := 0;
m := 1;
end ;
i := i +1;
end;
for i := 1 to n do
writeln (a[i]);<span>
end. </span>
Рента , зір , янтар , таця(миска) .
Я хз бро ты на другой сайт зайди и всё будет ок )) мне просто баллы нужны , и если не трудно сделай лучшим ответом пж
7. Информационный объём 8 битов * разрешение 2*3dpi(dots per inch) = 8*6 = 48 бит = 6 байт
dpi смущает, без него было бы меньше сомнений
6. 640*480*3(*8 для приведения к битам)/28800 бит/с ≈ <span>263,315 секунд</span>