Если кому-то что-то непонятно то отписываемся здесь.
НЕ ФЛУДИТЬ!!!
Вот код программы которую давали на уроке :
Code
Program N1(input,output);
Var X,Y:real;
Y1,Y2:integer;
BEGIN
Writeln ('Введите X:');
Readln (X);
Y:= EXP((-X+1)-LN(3))-SIN(x);
Y1:= TRUNC (Y);
Y2:= ROUND (Y);
WRITELN ('При Х=' ,X:8:3, ' Y=' ,Y:9:4);
WRITELN (' Y1=' ,Y1:4, ' Y2=' ,Y2:4);
WRITELN ('***' ,' Программу N1 составил студент...');
END.
Код рабочий Проверено
Вот сам Паскаль(переключение между русским и английским языком - LCrtl)
