Напишите, что будет выведено на экран в ходе выполнения фрагмента программы:

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 после исполнения этой последовательности операторов?

lizachumakova2    1   18.05.2020 19:22    2