// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandom(100,1,20); a.Println;
Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.
<u><em>Тестовое решение</em></u>
7 9 17 2 1 18 8 9 9 3 14 13 10 18 20 5 5 9 5 18 20 12 6 19 2 3 20 17 9 15 3 2 18 17 16 8 5 11 7 15 19 11 17 15 18 18 12 17 12 11 11 11 15 9 20 16 3 19 1 18 18 12 1 14 20 12 16 14 2 13 1 15 3 11 19 9 16 12 2 4 12 3 5 19 4 12 7 10 17 1 5 7 11 9 17 7 11 3 16 6
Сумма четных чисел равна 528
Var
a,b,c:real;
begin
Write('Введите через пробел длины трех сторон: ');
Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
Writeln('Можно составить треугольник')
else
Writeln('Нельзя составить треугольник')
end.
Тестовое решение:
Введите через пробел длины трех сторон: 2 6 9
Нельзя составить треугольник
Введите через пробел длины трех сторон: 3 4 5
Можно составить треугольник
Размер изображения 64*64 - значит всего точек в изображении 64*64=4096 точки.
для хранения выделено 512 байт, или 512*8 = 4096 бит
итого: на одну точку приходится 4096/4096 = 1 бит (информации для кодирования цвета одной точки)
по формуле N=2(в степени i), где N - кол-во цветов, а i - кол-во бит информации на точку, получаем, что наше N = 2 (в степени 1) = 2.
Т.е. Ответ 2 цвета
Var a:longint;
begin
read(a);
writeln(a*8388608);
end.
