Var N:integer;
r1,r2,r3:byte;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(N);
r1:=N div 1000;
r2:=(N div 100) mod 10;
r3:=(N div 10) mod 10;
N:=N mod 10;
Write((r1<>r2)and(r1<>r3)and(r1<>N)and(r2<>r3)and(r2<>N)and(r3<>N))
End.
Ответ:
есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.
и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке if k> =4 then write(i: 3); уберите знак > .
1 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 1 to i do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
2 вариант.
program zadacha;
var n, i, j, k : byte;
begin
write('введите число n');
for i: = 1 to n do begin
k: =0;
for j: = 2 to (i-1) do
if i mod j =0 then k: =k+1;
if k> =4 then write(i: 3);
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (S,v,t):=ReadInteger3('Введите S,v,t');
if s<>v*t
then Println('Расстояние не равно скорости на время')
else Println('При скорости в 3 р. больше, расстояние=',v*t*3,'км');
<span>end.
Пример(1):
Введите S,v,t-> 9 5 2
Расстояние не равно скорости на время
Пример(2):
Введите S,v,t-> 10 5 2
При скорости в 3 р. больше, расстояние= 30 км
</span>
N ⵗ 9 <span>ⵗ 3
Где N - число
N </span>ⵗ 9 - число кратно (делится нацело, без остатка) на 9.
N ⵗ 9 <span>ⵗ 3 - число кратно 9 и 3, то есть чтобы оно делилось на 3, достаточно чтобы оно делилось на 9.
</span>