При вводе текста придерживайся следующих правил: 1)там где нужно использовать прописные буквы(Shift + Буква);2)не следит за концом строки: как только он будет достигнут,курсор автоматически перейдет на начало следующей строки;3) для того чтобы перейти к вводу нового абзаца, нажми клавиша Pause;4) кавычки и скобки не пиши слитно с соответствующими словами
295
341
Ответы на вопрос:
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.
Популярно: Информатика
-
ayhan200601.07.2021 11:21
-
danmirlav20.04.2021 08:27
-
Kanmoen01410.11.2020 21:51
-
anastasia12099602.07.2022 04:17
-
клим51204.03.2022 06:27
-
TheKateClapp12301.07.2021 09:02
-
Акали22.09.2022 01:12
-
Крекир09.06.2022 03:18
-
Snegina8503.01.2020 13:22
-
GordienkoA2014.12.2020 13:32