Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)
На самом деле все элементарно,но понимаю лень читатьь!:D
Все очень просто:)
Решение:
2-цветное изображение, значит глубина равна 2<span>¹, а значит битовая глубина равна 1.
1280*1024=</span>1310720 точек
1310720 точек * 1 бит(глубины) = 1310720 Бит = 163840Байт = 160КБ
Ясно, что между кинотеатром и булочной находятся аптека и универсам. Из фразы "<span>второй дом после универсама- это ..." следует, что существуют два дома после универсама.</span> А это означает, что универсам второй по порядку. Тогда аптека - третья.
<span>следующий дом после кинотеатра- это <em>универсам</em>
второй дом после универсама- это <em>аптека</em>
второй дом после кинотеатра- это <em>аптека</em>
кинотеатр называется "<em>Сказка</em>"
следующий дом после <em>универсама</em>- это аптека.
предыдущий дом перед аптекой - это <em>универсам</em>
предыдущий дом перед <em>аптекой</em>- это универсам.</span>
В нижнюю часть вводите текст который проверяется на достаточное количество букв, в верхнюю часть вводите искомое слово. Программа различает прописные и строчные буквы.
<span>Саму программу можете увидеть Alt+F11
</span>
