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.
2.
4000/10*8/400=8
Ответ: о)
3.
1)0,5*1024*8=4096кбит
2)4096/128=32 сек
Ответ Н)
4.
10800/(28800/8)=3
Ответ T)
Их бывает 4 вида:
левое
правое
по середине
по ширине
выбери сам
Декларативные знания.
Я знаю, что вода кипит при температуре 100°С.
Я знаю, что машина должна остановиться на красный свет светофора.
Процедурные знания.
Я знаю, как пользоваться таблицей умножения.
Я знаю, как приготовить кашу.
Я знаю, как из бумаги сделать самолётик.