Задачка_1: Составить программку на языке Паскаль для вычисления выражения

Задачка_1: Составить программку на языке Паскаль для вычисления выражения y:=sqr(x)+x/3+sqr(sin(x)) Задачка_2: Составить программку на языке Паскаль для вычисления площади треугольника по трем граням (подсказка: это формула Герона) Задача_3: Составить программку на языке Паскаль, которая переставляет местами числа в двухзначном числе (к примеру 75 заменит на 57)

Задать свой вопрос
1 ответ
1)
var
x:real;
begin
Readln(x);
Writeln('y = ', sqr(x)+x/3+sqr(sin(x)));
end.
2)
var
p,a,b,c:real;
begin
Readln(a,b,c);
p:= (a+b+c)/2;
Writeln('S = ', sqrt(p*(p-c)*(p-b)*(p-a)));
end.
3)
var
a:integer;
begin
Readln(a);
a:= a div 10 + (a mod 10)*10;
Writeln(a);
end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт