Напишите, что будет выведено на экран в ходе выполнения фрагмента программы:
1) Var k: integer;
Begin
FOR k := 1 TO 7 do
Writeln (к);
2) Var x,y: integer;
Begin
у := 5;
FOR х := 1 TO 10 do
y := у + 4;
Writeln (y);
3) Определить значение переменной у после выполнения следующих фрагментов программы:
Var x,у: integer;
Begin
у := 1;
FOR х:= 1 TO 6 do
y := y *2;
y:=у+x;
Writeln (у);
1) Дана последовательность операторов:
а: =3;
b: =2;
repeat
а:=а+2;
b:=b*2;
b:=a+b;
until b>14;
s:=а*b;
Сколько раз будет повторён цикл и какими будут значения переменных а, b, s после исполнения этой последовательности операторов?
2) Дана последовательность операторов:
а:=2;
b:=4;
while a*b<513 do
begin
а: =а*2;
b: =b+3;
end;
s: =а*10;
Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после исполнения этой последовательности операторов?
183
359
Ответы на вопрос:
Популярно: Информатика
-
spudimun5022.10.2020 03:32
-
111леся19922.01.2023 09:10
-
5656grey676713.07.2020 00:57
-
fuccatsumi119.08.2020 23:59
-
Меньон25809.02.2021 06:13
-
mussa77777217.09.2021 01:50
-
ЛизаХлеб01.11.2021 17:44
-
rayl224.03.2023 02:08
-
vadimgofman27.06.2022 14:56
-
bohdanaznetishyna14.02.2022 17:12