Информатика, вопрос задал 1105465 , 1 год назад

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

Приложения:
duracell107: В первой задаче что дается? ЧИсло пойманных рыб у 1?
duracell107: Вообще, задача должна относиться к области математики
1105465: Учитель информатики так не считает

Ответы на вопрос

Ответил duracell107
0

program exmpl;

var x, y : integer;

Begin

 y := 18;

 x := y - 14;

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

end.

Ответил BobbyFresnel
1

===== 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.

Предыдущий вопрос
Следующий вопрос
Новые вопросы