Решите пожалуйста задачу в PascalABC с помощью циклов while и repeat. Найти все трехзначные числа которые можно представить разностью между квадратом числа образованного первыми двумя цифрами и квадратом третьей цифры.
Ответы на вопрос
Ответил Аноним
0
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.
Внимание! Если программа не работает, обновите версию!
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.
Приложения:
Новые вопросы