Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Огромные барьеры, которые создали люди, останавливают поток воды, льющийся на город.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.Здравствуйте! Я сегодня отдала учебники, литературу мы теперь не должны, но должны ещё один казахский язык.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
var
s, k: integer;
label
met;
begin
s:=-12;
k:=90;
Writeln('s=',s,', k=',k);
s:=s+10;
Writeln('s=',s);
met:
Writeln('Метка met:');
k:=k+10; Write('k=',k);
if k<200 then s:=50 else s:=s+k;
Writeln(', s=',s);
if k<200 then goto met;
Writeln('Результат: s=',s)
end.
Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250