Uses graphABC;
const
c: array [1..7, 1..3] of byte = ((50, 50, 133), (0, 0, 255), (0, 160, 227), (0, 255, 0), (255, 255, 0), (239, 127, 26), (255, 0, 0));
var
i: byte;
procedure ColArc(x, y: integer; r: integer; nc: byte);
begin
SetPenColor(rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
Arc(x, y, r + 10, 0, 180);
Arc(x, y, r - 10, 0, 180);
line(x - r - 11, y - 2, x - r + 11, y - 2);
line(x + r - 11, y - 2, x + r + 11, y - 2);
floodfill(x, y - r, rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
end;
begin
setwindowsize(500, 300);
for i := 1 to 7 do
ColArc(250, 300, 100 + (i * 20), i);
end.
Var
N,A:integer;
B:longint;
k:boolean;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
Begin
k:=true;
A:=N;
B:=A*A;
While A<>0 do
Begin
if (A mod 10 <> B mod 10) then k:=false;
A:= A div 10;
B:= B div 10;
End;
if k then Write(N,' ');
End;
End.
Uses crt;
var a,p:integer;b,s:real;
begin
writeln ('введите периметр',p);
readln (p);
writeln ('введите длину',a);
readln (a);
b:=((2*a-p)/-2);
s:=a*b;
writeln (s);
End.
Чтобы контрольная работа получила высший балл, необходимо как следует постараться: изучить теорию написания контрольных работ, посмотреть методички и ГОСТ, составить план и многое другое. Как видите, решение контрольной работы не такая уж и простая задача. Но продвинутые студенты, которые знают цену своему времени и силам, заказывают решение контрольных работ у нас. Это быстро, качественно и доступно каждому. Мы не пользуемся услугами посредников, благодаря чему цены на наши услуги значительно ниже, а работа выполняется быстрее. Образец плана контрольной работы Конечно, всегда будут студенты, которые любят самостоятельно писать контрольные работы. Им мы тоже стараемся помочь всеми силами. Поэтому мы подобрали несколько качественных примеров плана контрольных работ, которые демонстрирует практически идеальное выполнение плана. Опираясь на эти примеры, не забывайте и о теории. План контрольной работы должен быть детально проработан. В нем вы должны указать, сколько точно будет разделов, глав и параграфов. Кроме того, им нужно дать названия, которые будут уникальными (т.е. не повторяются в тексте работы больше одного раза). План также помогает определить, какой объем займет ваша контрольная работа. Распределяя главы, продумывайте, что вы будете в них писать, какая информация вам для этого понадобится, что вам для этого не хватает. Если вы будете четко следовать нашим советам, вы без труда сможете самостоятельно написать план к любой контрольной работе.
Взято со страницы: https://author24.ru/articles/kontrolnye_raboty/obrazec_plana_kontrolnoj_raboty/
Найдем количество бит на 1 пиксель:
8 = 2^i,
i = 3 (бита).
Найдем общее количество пикселей:
64 × 3584 = 229376 (пикс.).
Найдем объем рисунка в физической памяти:
229376 × 3 = 688128 (бит).
Переведем в КБайт'ы:
688128/8/1024 = 84 (КБайт).