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