// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

№1
begin
var a,b,u:real;
Write('Введите длины сторон и угол между ними в градусах: ');
Read(a,b,u);
Writeln('Длина третьей стороны ',sqrt(a*a+b*b-2*a*b*cos(degtorad(u))):0:3)
end.

Пример
Введите длины сторон и угол между ними в градусах: 10.3 15 47.4
Длина третьей стороны 11.042

№2
begin
Writeln(ReadSeqInteger(3).Any(i->i.IsEven)?'Да':'Нет')
end.

Примеры
41 53 107
Нет

159 -14 17
Да

0 0

4 года назад

Дайте описание систем автомобиль урок магнитофон как черных ящиков

kohka28 [414]

Автомобиль - Вход системы: пыль, грязь, стоимость, регулятор скорости, холод, кнопки, педали, двигатель, фары
Выход системы: свет, звук, тепло

0 0

4 года назад

Помогите!Изобразить с помощью кругов Эйлера: птица, воробей, перелиная птица, ласточка, аист.Спасибо)

рома полянский

Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка

0 0

1 год назад