Написать алгоритм получения округления годовых оценок по четвертям

288

458

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

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

valya414gogus

Информатика

4,8(94 оценок)

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.