Предмет: Информатика,
автор: molodichenkonm
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Составьте программы к блок-схемам.
Приложения:
Аноним:
неправильная блок схема
Ответы
Автор ответа:
1
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.
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.
Похожие вопросы
Предмет: Українська мова,
автор: majadmitrenko352
Предмет: Литература,
автор: Shoks32
Предмет: Физкультура и спорт,
автор: Аноним
Предмет: Математика,
автор: Соняша2005
Предмет: Литература,
автор: Sheldon5by5gaga