Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d, a,b: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); a:= 0; b:= 0; for i := 1 to 15 do begin y[i] := random (30); if (y[i] < 10) then a:= a + 1; y[i] := y[i] * d * 0.8; end; for i:=1 to 20 do g[i] := random (30); if (g[i] < 10) then b:= b + 1; g[i] := g[i] * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней'); writeln; writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней'); End.
Var a:array[1..10] of real;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10+random;
write(a[i]:0:2,' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 10 do
begin
if i mod 2 = 0 then a[i]:=a[i]/2;
write (a[i]:0:2,' ');
end;
end.
var a:array[1..7] of integer;
i:integer;
begin
write('Исходный массив: ');
for i:=1 to 7 do
begin
a[i]:=random(11);
write(a[i],' ');
end;
WRITELN;
write('Изменённый массив: ');
for i:=1 to 7 do
begin
if a[i] mod 10 = 0 then a[i]:=0;
write(a[i],' ');
end;
end.
1,5 Мбайт = 1,5*1024 Кбайт = 1,5*1024*1024 байт = 1,5*1024*1024*8 бит
Память для одного пикселя = 1,5*1024*1024*8 / (1024*512) = 24 бита
Количество цветов в палитре = 2^24 = 16 777 216
Правильный ответ - №1.
Тем, что описано во втором ответе, занимаются антивирусы-сканеры.
1 символ=8 бит
40 символов= 40 (символы) * 8 (бит)
40 строк по 40 символов= 40 (строк) * 40 (символы) * 8 (бит)
48 страниц по 40 строк по 40 символов= 48 (страниц) * 40 (строк) * 40 (символов) * 8 (бит)
40*8*48*40 = 614,400 бит
614 400 бит = 76,800
76,800 = 75 Кбайт
Получится 75 Кбайт,первый вариант.