Нельзя считывать данные этого типа выводит pascal abc при попытке проверить программу на работо программа: program abc; var a,b,c,d,e,f: real; begin; write ('введите количество дюймов'); read('a'); b: =(a*2.54)*100; write('мм=',b); c: =a*2.54; write('см=',c); d: =(a*2.54)/10; write('дм=',d); e: =(a*2.54)/100; write('м=',e); f: =(a*2.54)/10000; write('км=',f); readln; end.

НикаиВикаСестры    1   02.06.2019 02:10    3