Var
A,r1,r2,r3,r4:integer;
Begin
For A:= 1000 to 9999 do
Begin
r1:=A div 1000;
r2:=(A div 100) mod 10;
r3:=(A div 10) mod 10;
r4:=A mod 10;
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
Write(A,' ')
End;
End.
Блок схема представлена на изображении
1.Может
2.Не может
-_____________________________________-
Учить надо и на уроках слушать
1 дюйм = 2,54 см
15,24 см * 15,24 см = 6 дюймов * 6 дюймов
Количество точек сканированного изображения = 600*1200*6*6
Объем изображения = 600*1200*6*6*8 бит = 600*1200*6*6*8/8 байт = 600*1200*6*6/1024 Кбайт = 25312,5 Кбайт = 25312,5/1024 Мбайт ≈ 25 Мбайт