// PascalABC.NET 3.0, сборка 1073 const s=''; var c:char; p:integer; begin repeat Write('Введите латинскую букву, иной символ завершит работу: '); Readln(c); p:=Pos(c,s); if p>0 then Writeln('Рядом буква "',s[p+1],'"') until p=0 end.
Тестовое решение: Введите латинскую букву, иной символ завершит работу: y Рядом буква "u" Введите латинскую букву, иной символ завершит работу: H Рядом буква "J" Введите латинскую букву, иной символ завершит работу: m Рядом буква "q" Введите латинскую букву, иной символ завершит работу: P Рядом буква "A" Введите латинскую букву, иной символ завершит работу: 5
Чтобы решить эту задачу, нам необходимо знать, что глубина цвета изображения измеряется в битах. В данном случае глубина цвета составляет 24 бита, что означает, что каждый пиксель изображения может представлять 2^24 (16 777 216) различных цветов.
Размер изображения равен размеру в пикселях, умноженному на количество бит, необходимых для представления каждого пикселя. В данном случае у нас есть изображение размером 10 х 10 пикселей.
Таким образом, общий размер изображения в битах можно вычислить следующим образом:
Размер изображения в битах = (ширина изображения в пикселях) × (высота изображения в пикселях) × (глубина цвета изображения)
Размер изображения в байтах можно получить, разделив размер изображения в битах на 8, так как в одном байте содержится 8 бит.
Размер изображения в байтах = (размер изображения в битах) / 8
В нашем случае:
Размер изображения в битах = 10 х 10 х 24 = 2400 бит
Размер изображения в байтах = 2400 / 8 = 300 байт
Таким образом, файл, содержащий цветное изображение глубиной 24 бит размером 10 х 10 пикселей, займет 300 байт памяти.
const
s='';
var
c:char;
p:integer;
begin
repeat
Write('Введите латинскую букву, иной символ завершит работу: ');
Readln(c);
p:=Pos(c,s);
if p>0 then Writeln('Рядом буква "',s[p+1],'"')
until p=0
end.
Тестовое решение:
Введите латинскую букву, иной символ завершит работу: y
Рядом буква "u"
Введите латинскую букву, иной символ завершит работу: H
Рядом буква "J"
Введите латинскую букву, иной символ завершит работу: m
Рядом буква "q"
Введите латинскую букву, иной символ завершит работу: P
Рядом буква "A"
Введите латинскую букву, иной символ завершит работу: 5