profile
Опубликовано 5 лет назад по предмету Информатика от YuliaKartoshka

Решите пожалуйста задачу в PascalABC с помощью циклов while и repeat. Найти все трехзначные числа которые можно представить разностью между квадратом числа образованного первыми двумя цифрами и квадратом третьей цифры.

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
    Внимание! Если программа не работает, обновите версию!

    begin
      // только у чисел 100 до 319 квадрат первых двух цифр трехзначный.
      var i:=10;
      while i<=31 do begin
        var j:=0;
        repeat
          if i*i-j*j=10*i+j then Print(10*i+j);
          j+=1
        until j>9;
        i+=1
      end
    end.
Самые новые вопросы