1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
1 МБ = 8 Мбит
Переводим МБ в Мбиты: 10*8=80 Мбит
80/50 = 1.6 сек
Var
a,b:integer;
begin
readln (a,b);
writeln (a*b);
end.
Var a,b,x:real;
<span>begin </span>
<span>writeln('Введите зачения чисел a и b'); </span>
<span>read(a,b); </span>
<span>x:=a+b; </span>
<span>writeln('Сумма чисел a+b=',x); </span>
<span>end. </span>
А 93 в какой системе счисления?