var a,b,c,y:Real;
Begin
Read(a,b,c);
y:=SQRT(a+ABS(b)+(15+c)*(15+c));
Write(y)
End.
Ээээээмм
А где рисунок та??
50 на 100 точек по 256 цветов в точке.
по формуле K=2^b (K-количество цветов, b-глубина цвета).
2^8 = 256 цвета
8 бит * 50 * 100 = 4000 бит = 500 байт
<em>Было занятно сделать все это в виде одного оператора)))</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('->').ToWords(Arr(',','.'))
.Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
.Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
.SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
.Println(',')
end.
<u>Пример</u>
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о