Размещено 5 лет назад по предмету
Информатика
от Vlad971997
Переведите с basic'e на 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