Question

Здравствуйте,помогите решить задачи по информатике.
Учусь я в 9 классе,так что многих основных сложных команд мы не изучали,пока вот остановились на while и do.
Вот сами задачи.
1.Составьте программу вычисления 2+4+6...+200.
2.С клавиатуры вводятся шесть целых чисел.Определите количество чётных чисел в этом наборе.
Программы должны быть написаны на языке Pascal
В программах должен присутствовать цикл с предусловием,то есть while и do

Answer 1

1. program HelloWorld;

var summ,i :integer;

 begin

   i:=2;

    while i<=200 do

    begin

        summ := summ + i;

        i:=i+2;       

    end;

    writeln(summ)

end.

2. 

program HelloWorld;

var S,i,n: integer;

begin

       while i<6 do

    begin

        writeln('Введите значение число:');

        readln(S);

        if S mod 2 = 0 then n:=n+1;

        i:=i+1;

        writeln(n);

    end;

        writeln('Количество четных:');

    writeln(n);

    end.