какое значение будет иметь переменная а после выполнения рагмента программы:
а:=1;
for n:= 1 to 4 do
а:=а+2-n;
if a>0 then
a:=a+10
writeln (a)
Ответы на вопрос
Ответил Аноним
0
Программа напишет -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.
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.
Новые вопросы