Question

Срочно! Сделайте, пожалуйста, номер 1 в Pascal

Answer 1

program exmpl;

var x, y : integer;

Begin

 y := 18;

 x := y - 14;

 writeln ('Число пойманных рыб у обоих мальчиков: ', x + y);

end.

Answer 2

===== PascalABC.NET =====

begin

 var Вася := 18;

 var Петя := Вася - 4;

 Println('Вася поймал рыб:', Вася, ', Петя поймал:', Петя)

end.

-----------------------------------

begin

 var (a, b, c) := ReadReal3('Введите длины сторон:');

 var ca := (b * b + c * c - a * a) / (2 * b * c);

 var cb := (a * a + c * c - b * b) / (2 * a * c);

 var cc := (a * a + b * b - c * c) / (2 * a * b);

 Println('Косинусы углов:', ca, cb, cc)

end.