Технический форум - Решение задачи

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Решение задачи (http://www.tehnari.ru/f41/t91123/)

SkyNexx

24.09.2013 20:18

Решение задачи

Вложений: 1

помогите пожалуйста
Нужно написать программу на Паскале
11 класс

Vladimir_S

24.09.2013 20:40

Цитата:

Сообщение от SkyNexx (Сообщение 951873)

помогите пожалуйста
Нужно написать программу на Паскале
11 класс

Фу, стыд какой!

Код:

Var

 x,y:Real;

Begin

 Write('x= ');

 Readln(x);

 If x>1 then y:=Ln(x) else y:=1-x;

 Writeln('y= ',y:0:3);

 Readln

End.

SkyNexx

08.10.2013 21:17

Спаааасибо)

Часовой пояс GMT +4, время: 23:35.