Var
y, x : Real;
begin
WriteLn('Vvedite X'); ReadLn(x);
y:= sqrt(sqr(x)*x);
WriteLn('Otvet:', y);
ReadLn;
end.
Синих карандашей = 32*0,5=16
Зеленых карандашей = 32*0,25=8
Желтых = 32* 0,125=4
Красных = 32* 0,0625=2
16+8+4+2=30
Значит белых карандашей 32-30=2
===== PascalABC.NET =====
begin
var a := ReadArrInteger(5);
a.Println
end.
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
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.
<u>Пример</u>
Введите длины сторон и угол между ними в градусах: 10.3 15 47.4
Длина третьей стороны 11.042
<em>№2</em>
begin
Writeln(ReadSeqInteger(3).Any(i->i.IsEven)?'Да':'Нет')
end.
<u>Примеры</u>
41 53 107
Нет
159 -14 17
Да