Вычисляем количество всех точек 786432. 16 байт нужно для 256 цветов
Вычисляем объём в байтах 12582912 байт = 12288 Кб
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0,300);
<span>end. </span>
Программа на паскале:
program square;
var a,s:integer;
begin
write('a = ');
readln(a);
s:=a*a;
writeln('s = ',s);
end.
Пример:
a = 5
s = 25
Входные данные:
В первой строке вводится целое положительное число
(
). Во второй строке через пробел вводится
чисел
(
).
Выходные данные:
В единственной строке выходного файла OUTPUT.TXT через пробел вывести все
элементов массива
, каждый из которых увеличен в 2 раза.
Пример ввода:
6
1 2 3 4 5 6
Пример вывода:
2 4 6 8 10 12
Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Исходный код решения находится в приложении ниже. Открыть можно только в веб-версии.