ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Составьте программы к блок-схемам.
Приложения:

Ответы на вопрос
Ответил Аноним
0
5.
program scheme;
var y,i,x:integer;
begin
y:= 0;
for i:= 1 to 10 do
begin
readln(x);
if x mod 2 = 0 then
y:=x+y;
end;
writeln(y);
end.
Ответил Аноним
0
6.
program scheme;
var y,i,x:integer;
begin
y:= 0;
for i:= 1 to 10 do
begin
readln(x);
if x mod 2 <> 0 then
y:=y+1;
end;
writeln(y);
end.
program scheme;
var y,i,x:integer;
begin
y:= 0;
for i:= 1 to 10 do
begin
readln(x);
if x mod 2 <> 0 then
y:=y+1;
end;
writeln(y);
end.
Новые вопросы
Другие предметы,
2 года назад
Английский язык,
2 года назад
Математика,
7 лет назад
Математика,
9 лет назад
Математика,
9 лет назад