3,6e+8
0,03038
0,00685
5,625
5,431004875
Що допомогти ? Нічого ж немає
конструкторское, деловое, научное, иллюстративное, художественное, рекламное, растровое,фрактальная, векторное.
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>