Первый кратный элемент заменяется на 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>
<span>Вложенный оператор применяется в тех случаях, когда для выполнения действия требуется соблюдение сразу нескольких условий, которые не могут быть указаны в одном условном выражении</span>
<span>d)if (x>y) and (y>z) then a:=x+y+z</span>
Дано
V=6КБ=524288 бит
N=64
a*b=?
V=a*b*I a*b=V/I I-неизвестно N=2^I 64=2^I 64=2*8 I=8 бит
a*b=524288/8=65536 точек