25 div 7 = 3 (целое частное 25/7) 3 mod 3 = 0 (целый остаток деления 3/3) sqrt (9) = 3 (квадратный корень √9) power (2,3) = 8 (возведение в степень 2 в степени 3)
//PascalABC.Net 3.0, сборка 1064 var n:integer; i,d:byte; b:array[0..9] of boolean; fail:boolean; begin Write('Введите четырехзначное натуральное число: '); Read(n); for i:=0 to 9 do b[i]:=False; while (n>0) and (not fail) do begin d:=n mod 10; if b[d] then fail:=True else b[d]:=True; n:=n div 10 end; if fail then Writeln('В числе есть одинаковые цифры') else Writeln('В числе нет одинаковых цифр') end.
Тестовое решение: Введите четырехзначное натуральное число: 1263 В числе нет одинаковых цифр
Введите четырехзначное натуральное число: 1315 В числе есть одинаковые цифры
( (25 div 7) mod 3 ) + sqrt (9) - power (2,3) =
(3 mod 3)+3-8 =
0-5 =
-5