1) Какое значение будет принимать переменная Y после выполнения фрагментов программы?
a) Var Y, X: integer;
Begin
Y: = 1;
X: = 12;
Repeat
Y: = Y*X;
X: = X – 2;
Until X<7;
Writeln (‘Y=’,Y);
End.
б) Var Y, X: integer;
Begin
Y: = 1;
X: = 16;
Repeat
Y: = X*X;
X: = X – 4;
Until X<=0;
Writeln (‘Y=’,Y);
End.
2) Определить значение переменной у после выполнения фрагмента следующей программы:
Var y:real;
i:integer;
begin
y:= 1;
i:= 2;
repeat
i:=3*i;
y:=y+i
until i > 7;
Writeln ('y=',y);
End.
158
294
Ответы на вопрос:
Популярно: Информатика
-
MrDog200503.04.2020 02:02
-
Sasho232519.04.2021 10:22
-
AlCapone02512.01.2022 20:49
-
Ксюшка22121.09.2022 10:35
-
Stella200211127.05.2020 06:38
-
veronkagavrily26.05.2023 03:16
-
enterways04.12.2022 20:57
-
Filip1is21.07.2020 18:10
-
zherukova0003.06.2022 08:08
-
829ld4b09.08.2020 18:04