Buzabor
4 год назад
1)Какое значение будет принимать переменная Y после выполнения фрагментов программы?a) Var Y, X: integer;BeginY: = 1;X: = 12;RepeatY: = Y*X;X: = X – 2;Until X<7;Writeln (‘Y=’,Y);End.б)Var Y, X: integer;BeginY: = 1;X: = 16;RepeatY: = X*X;X: = X – 4;Until X<=0;Writeln (‘Y=’,Y);End.2) Определить значение переменной у после выполнения фрагмента следующей программы:Var y:real;i:integer;beginy:= 1; i:= 2; repeati:=3*i;y:=y+iuntil i > 7;Writeln ('y=',y);End.
ОТВЕТЫ
Александр
Oct 24, 2020
а)
y=1
x=12
y=12
x=10
y=960
x=6 ( х стал меньше 7, значит выводим строку с "y")
б)
y=1
x=16
y=256
x=12
y=144
x=8
y=64
x=4
y=16
x=0
тут х =0 а значит выводи строку с y
2.
y = 1
i=2
y=7
i=6
i=18
y=25
тут y стал больше 7, значит выводи строку с y
875
Смежные вопросы:
