Программу надо сформатировать и тогда её структура будет видна лучше. А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".
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.
begin Writeln('Вычислите S поверхности параллелепипеда.'); Writeln('Введите исходные данные:'); Write('Длина(см)? '); Readln(a); Write('Ширина(см)? '); Readln(b); Write('Высота(см)? '); Readln(c); s := 2 * (a * b + b * c + c * a); Writeln('Площадь поверхности: ', s, ' кв.см.') end.
Тестовое решение: Вычислите S поверхности параллелепипеда. Введите исходные данные: Длина(см)? 9 Ширина(см)? 7.5 Высота(см)? 5 Площадь поверхности: 300 кв.см.
ответ:Близкое размещение
Объяснение:Локальная компьютерная сеть это сеть расположенных рядом компьютеров.