profile
Размещено 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

  1. Ответ на вопрос
    Ответ на вопрос дан Alphaeus

    Добавил ещё команду печати списка найденных троек, а не только их количества (строка   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<b) then
              begin
                count:=count+1;
                writeln('(',a,', ',b,', ',c,') ');
              end;
      writeln('Всего найдено ',count,' пифагоровых троек');
    end.

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.