1)Да
2)Нет
3)Нет
4)Да
5)Да
6)Нет
А) 35*1024*8=286720 1024 т.к. в одном кб 1024 байта, а на 8 т.к. в одном байте 8 бит
б)458752/8/1024=56
в)109051904/8/1024/1024=13 2 раза делим на 1024 т.к. с байтов в килобайты а за тем килобайты в мегабайты, там по 1024 У.е.
г)4.5*1024*1024=4718592
Uses GraphABC;
begin
LockDrawing;
for var i:=1 to 800 do
begin
Window.Clear;
Brush.Color := clGray;
FillRectangle(i+10,90,i-110,430);
Brush.Color := clRed;
Ellipse(i,100,i-100,200);
Brush.Color := clYellow;
Ellipse(i,210,i-100,310);
Brush.Color := clGreen;
Ellipse(i,320,i-100,420);
Redraw;
Sleep(1);
end;
for var i:=1 to 900 do
begin
Window.Clear;
Brush.Color := clBlack;
Ellipse(i,100,i-200,300);
Brush.Color := clWhite;
Ellipse(i-1,101,i-199,299);
Brush.Color := clRed;
Ellipse(i-20,120,i-180,280);
Brush.Color := clWhite;
FillRectangle(i-50,180,i-150,220);
Redraw;
Sleep(1);
end;
end.
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
