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.
720*1024*1024=754974720 байт - весь фильм 1 минуты
1024*768*60*16*Х=754974720
Х=1
всего один цвет - монохромное изображение
<u>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadlnString('Введите целое число:');
var n:integer;
if integer.TryParse(s,n) then Writeln('Корректно')
else Writeln('Ошибка ввода')
end.
Ходить:часы,человек,животное.
плыть:лодка,утка,человек.
вертеться:человек,юла.
освещать: лампа, луна, фонарик
<span>Морзе.
</span>МорзеМорзеМорзеМорзе<span>Морзе</span>