Распишите.

1.определите значение целочисленных переменных x и y после выполнения фрагмента программы

х := 19;
у := 3;
z := у*2;
у := х mod у;
х := х - z;
у := у + z;

1

Ответы и объяснения

2013-05-30T23:18:03+04:00

 

 В результате компилятор выдаст ошибку т.к один end лишний.

А если исправить программу до такого вида

var k , s: integer;
begin
    s:=0;
    k:=1;
 while s < 66 do begin 
 k:=k+3;
 s:=s+k;
end;
 write (k);
 k:=k+2;
write (k);

end. 

 

то трассируя получим 

k                    s

 

1                   0

4                   4

7                  11

 

10               21

13               34  

 

 

16              50

19              69

 

В конце будет напечатанно 19  21