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