Question

Какое значение будет иметь переменная а после выполнения рагмента программы: а:=1; for n:= 1 to 4 do а:=а+2-n; if a>0 then a:=a+10 writeln (a)

Answer 1

Программа напишет -1

program alg;
 uses Crt;
 var  a,n: integer;
begin
 ClrScr;
 a:=1;
 for n:= 1 to 4 do
   a:=a+2-n;
 if a>0 then
 a:=a+10;
 writeln (a);
 ReadLn;
end.