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.

#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