Выдаёт ошибку: операнды имеют неприводимые типы.где я ошиблась? (программа написана на языке pascal abc) program home; uses crt; var a: integer; b: real; begin writeln ('введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер'); readln (a); writeln ('введите число, которое нужно перевести в килограммы'); readln (b); if (a = 'килограмм') then writeln (b); if (a = 'миллиграмм') then begin b : = b / 1000000; writeln (b); end; if (a = 'грамм') then begin b: = b / 1000; writeln (b) end; if (a = 'тонна') then begin b: = b * 1000; writeln (b); end; if (a = 'центнер') then begin b: = b * 100; writeln (b); end; end.

665609    2   18.09.2019 18:01    4