var A:array[1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
end.
помоему так)
13 символів, так як один символ=1 біт
<span>В компьютере также используется свой алфавит, который можно назвать компьютерным. Количество символов, которое в него входит, равно 256 символов. Это мощность компьютерного алфавита.</span>
Security 360 - Антивирусная программа для ПК