Question

3) Напишите, что будет выведено на экран в ходе выполнения фрагмента программы: a) FOR k := 1 TO 4 do Write(k); b) y := 0; FOR x := 1 TO 9 do y := y + 1; Writeln (y); 4) Какое значение будет принимать переменная Y после выполнения фрагментов программы? А) Var Y, X: integer; Begin Y: = 1; X: = 15; Repeat Y: = Y*X; X: = X – 3; Until X<5; Writeln (‘Y=’,Y); End. В) Var Y, X: integer; Begin Y: = 1; X: = 10; Repeat Y: = X*X; X: = X – 2; Until X<=0; Writeln (‘Y=’,Y); End.

Answer 1

#3

а)
program ideone;
var k:integer;
begin for k := 1 to 4 do 
write(k);
end.

Ответ  1234

б)
program ideone;
var y, x:integer;
begin
y := 0;    
for x := 1 to 9 do y := y + 1; 
writeln (y);
end.

Ответ 9 

#4
а)
var y, x: integer;
begin
y:=1;
x:=15;
repeat y:= y*x;
x:= x-3;
until x<5;
writeln ('Y=',Y);
end.

Ответ 9720

var y, x: integer;
begin
y:=1;
x:=10;
repeat y:= x*x;
x:= x-2;
until x<=0;
writeln ('Y=',Y);
end.

Ответ 4 

Answer 2

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

a) FOR k := 1 TO 4 do Write(k); - В результате выполнения этого фрагмента программы будет выведено на экран: 1234.

b) y := 0; FOR x := 1 TO 9 do y := y + 1; Writeln(y); - В результате выполнения этого фрагмента программы будет выведено на экран: 9.

4) Какое значение будет принимать переменная Y после выполнения фрагментов программы?

А) Var Y, X: integer; Begin Y := 1; X := 15; Repeat Y := Y * X; X := X - 3; Until X < 5; Writeln('Y=', Y); End. - После выполнения этого фрагмента программы значение переменной Y будет равно: 3375.

В) Var Y, X: integer; Begin Y := 1; X := 10; Repeat Y := Y + X * X; X := X - 2; Until X <= 0; Writeln('Y=', Y); End. - После выполнения этого фрагмента программы значение переменной Y будет равно: 286.

Please let me know if you need any further assistance!