Question

Решить по информатике. учусь я в 9 классе,так что многих основных сложных команд мы не изучали,пока вот остановились на while и do. вот сами . 1.составьте программу вычисления 2+4++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.