Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Напишите как сделать программу в Паскале. Все 2 задачи

Ответ оставил Гость

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.