Var m,n,i,a:integer; begin writeln('N='); readln(n); m:=1; writeln('vvedite chisla'); for i:=1 to n do begin readln(a); if (a mod 2)=0 then m:=m*a; end; if m=1 then m:=0; writeln('otvet:',m) end.
Программу надо сформатировать и тогда её структура будет видна лучше. А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var s, k: integer; label met; begin s:=-12; k:=90; Writeln('s=',s,', k=',k); s:=s+10; Writeln('s=',s); met: Writeln('Метка met:'); k:=k+10; Write('k=',k); if k<200 then s:=50 else s:=s+k; Writeln(', s=',s); if k<200 then goto met; Writeln('Результат: s=',s) end.
Существует три философские концепции информации: 1. Атрибутивная концепция. Информация является свойством всего сущего, всех материальных объектов мира. Информация — атрибут всех материальных объектов. 2. Функциональная концепция. Информация возникла вместе со Вселенной. Информация проявляется в воздействии одних объектов на другие, в изменениях, к котоым такие воздействия приводят. Информация — это атрибут, свойственный только живой природе. 3. Антропоцентрическая концепция. Информация существует лишь в человеческом сознании, в человеческом восприятии. Информационная деятельность присуща только человеку и происходит в социальных системах. Создавая информационную технику, человек создает инструменты для своей информационной деятельности
m,n,i,a:integer;
begin
writeln('N=');
readln(n);
m:=1;
writeln('vvedite chisla');
for i:=1 to n do
begin
readln(a);
if (a mod 2)=0 then m:=m*a;
end;
if m=1 then m:=0;
writeln('otvet:',m)
end.