Ответы и объяснения

2013-04-16T06:23:32+00:00

1)

 

const n = 5;
var
  i, a, count: integer;
begin
  for i := 1 to n do begin
    readln(a);
    if(a mod 2 = 0) then inc(count);
  end;
  writeln('Кол-во четных чисел: ', count);
end.

 

2)

 

var
  i, n, count: integer;
begin
  readln(n);
  for i := 1 to n do begin
    write(exp(ln(2)*i), ' ');
    if(exp(ln(2)*i) <= 200) then inc(count);
  end;
  writeln('Кол-во эл. не превышающих 200: ', count);
end.