Всего сообщений: 1 | Присоединился: декабрь 2013 | Отправлено: 24 дек. 2013 21:34 | IP
YuliaShumilova969
Новичок
program tt; uses crt; var x,y:real; begin clrscr; writeln('введите значение х: '); readln(x); if x=0 then writeln('ввод не корректен ') {т.к. на 0 делить нельзя,а sin(0)=0} else begin y:=x/sin(x); writeln('значение выражения y=x/sin(x); y=',y:7:2); end; readkey; end.
Всего сообщений: 2 | Присоединился: январь 2014 | Отправлено: 7 янв. 2014 15:23 | IP