<span>Если нигде я не ошибся, то Петя записал числа от 1 до 1079 и начал писать следующее число 1080, написал 1 и бросил. Ответ 1</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.
Ответ на рисунке. Ответ на рисунке.
1842₁₀ = 5241₇
1842/7= 263 ост. 1
263/7=37 ост. 4
37/7=5 ост. 2
5