Question

Здравствуйте, очень вас прошу.. помогите пожалуйста с заданиями по информатике.

1 Задача. Составить программу, которая запрашивает два числа и находит третье по формуле C:a*a+b*b-5. Вывести число C на экран.

2 Задача. Составить программу, которая вводит два числа и выводит на экран суммы их кубов.

3 Задача. Составить программу, которая запрашивает 3 числа и находит разность первого и произведения первого и третьего.

4 Задача. Введите значения двух углов треугольника. Найдите третий угол, если сумма внутреннего треугольника равна 180 градусов. вывести значение на экран

Answer 1

1)

var a, b, C: integer;

begin

 write('Введите число a: ');

 readln(a);

 write('Введите число b: ');

 readln(b);

 

 C:= a * a + b * b - 5;

 writeln('C: ' + C);

end.

2)

var a, b: integer;

begin

 write('Введите число a: ');

 readln(a);

 write('Введите число b: ');

 readln(b);

 writeln('Сумма их кубов: ' + (Power(a, 3) + Power(b, 3)));

end.

3)

var a, b, c: integer;

begin

 write('Введите число a: ');

 readln(a);

 write('Введите число b: ');

 readln(b);

 write('Введите число с: ');

 readln(c);

 writeln('Сумма их кубов: ' + (a + a * c));

end.

4)

var a, b, c: integer;

begin

 write('Введите первый угол: ');

 readln(a);

 write('Введите второй угол: ');

 readln(b);

 writeln('Третий угол: ' + (180 - a - b));

end.