Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Переведите с basice на pascal:

CLS
FOR a = 1 TO 100
FOR b = 1 TO 100
FOR c = 1 TO 100
aa = a ^ 2
bb = b ^ 2
cc = c ^ 2
IF aa + bb = cc AND aa < bb THEN z = z = 1
NEXT c
NEXT b
NEXT a
PRINT z

Ответ оставил Гость

Добавил ещё команду печати списка найденных троек, а не только их количества (строка   writeln((,a,, ,b,, ,c,) ); ).

Program Vlad971997;
uses crt;
const n=100;
var
  a,b,c,count: integer;
begin
  writeln(*** alphaues is thinking... ***);
  writeln(***          OK             ***);
  count:=0;
  for a:=1 to n do
    for b:=1 to n do
      for c:=1 to n do
        if (a*a+b*b = c*c) and (a          begin
            count:=count+1;
            writeln((,a,, ,b,, ,c,) );
          end;
  writeln(Всего найдено ,count, пифагоровых троек);
end.