Есть ответ 👍

При вводе текста придерживайся следующих правил: 1)там где нужно использовать прописные буквы(Shift + Буква);2)не следит за концом строки: как только он будет достигнут,курсор автоматически перейдет на начало следующей строки;3) для того чтобы перейти к вводу нового абзаца, нажми клавиша Pause;4) кавычки и скобки не пиши слитно с соответствующими словами ​

295
341
Посмотреть ответы 1

Ответы на вопрос:


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.

Популярно: Информатика