Var
H2SO4:string;
B:integer;
Begin
B:=0;
WriteLn('Введите три формулы кислот');
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=1;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=2;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=3;
if B = 0 then WriteLn('Формулы серной кислоты среди них нет')
else WriteLn('Формула серной кислоты: №',B)
End.
Информация может быть слуховая, зрительная и т.д. Это то, что ты например увидел и уже знаешь как тот или инной предмет выглядит
<span>Сканер создаёт цифровую копию изображения объекта.</span>
При увеличении в растровом изображении начинают виднеться пиксели, а приуменьшении пиксели сливаются и картинка становится не ясной. При вращении качество не меняется