Определите значение переменной X После выполнения следующего фрагмента программы:
x:=1;
for i:=1 to 5 do begin x:=x+2*i;
x:=x+1;
end;
x:=1;
for i:=1 to 5 do begin x:=x+2*i;
x:=x+1;
end;
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ: 36
Объяснение: вот полноценная программа
var
x,i,n:integer;
begin
x:=1;
i:=0;
for i:=1 to 5 do begin x:=x+2*i;
x:=x+1;
end;
writeln('Ответ = ',x);
readln;
end.