Здравствуйте,помогите решить задачи по информатике.
Учусь я в 9 классе,так что многих основных сложных команд мы не изучали,пока вот остановились на while и do.
Вот сами задачи.
1.Составьте программу вычисления 2+4+6...+200.
2.С клавиатуры вводятся шесть целых чисел.Определите количество чётных чисел в этом наборе.
Программы должны быть написаны на языке Pascal
В программах должен присутствовать цикл с предусловием,то есть while и do
Учусь я в 9 классе,так что многих основных сложных команд мы не изучали,пока вот остановились на while и do.
Вот сами задачи.
1.Составьте программу вычисления 2+4+6...+200.
2.С клавиатуры вводятся шесть целых чисел.Определите количество чётных чисел в этом наборе.
Программы должны быть написаны на языке Pascal
В программах должен присутствовать цикл с предусловием,то есть while и do
More Questions From This User See All
Answers & Comments
var summ,i:integer;
begin
i:=2;
while i<=200 do
begin
summ := summ + i;
i:=i+2;
end;
writeln(summ)
end.
2.
programHelloWorld;
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.