Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>
)))))))))))))))))))))))))Страны, как ещё?!
ТАВ-тактильная. А-аудильная В-визеальная.Вроде так.
Полное ветвление:
<em>if</em> логическое выражение <em>then</em> оператор
<em>else</em> оператор;
Неполное ветвление:
<em>if</em> логическое выражение <em>then</em> оператор;
Если ветвления вложенные и среди них есть неполные, надо помнить, что каждое <em>else</em> связывается с ближайшим предшествующим ему <em>if</em>, не имеющем <em>else</em>.
Например, рассмотрим конструкцию
<em>if</em> a>b <em>then if</em> c=d <em>then</em> x:=1 <em>else</em> x:=2;
Без упомянутого правила неясно, что имелось в виду:
<em>if</em> a>b <em>then</em>
<em>if</em> c=d <em>then</em> x:=1 <em>else</em> x:=2;
или же
<em>if</em> a>b <em>then</em>
<em>if</em> c=d <em>then</em> x:=1
<em>else</em> x:=2;
Знание правила позволяет разрешить вопрос: имеется в виду первый вариант.
А если нужно получить второй - к нашим услугам блок:
<em>if</em> a>b <em>then</em>
<em>begin if</em> c=d <em>then</em> x:=1 <em>end</em>
<em>else</em> x:=2;