Для палитры <span>16 777 216</span> необходимо 2^i = 16 777 216, i=24 бит
1024*768*24 = 18 874 368 бит
делим на 8 бит в байте = 2 359 296 байт
делим на 1024 байт в кб = 2304 кб
или же 2,25 мб
Ответ:
Программа и часть результата работы на скрине.
Объяснение:
В цикле проверяем каждое четырехзначное число.
Если остаток от деления его на 155 равен нулю, то выводим его.
ꟷꟷꟷꟷꟷꟷ
Не забывайте сказать "Спасибо"! и, если ответ удовлетворил, то выберите его как "Лучший" - Вам вернется часть баллов!
Бодрого настроения и добра!
Успехов в учебе!
Ответ:
const
n=5;
type
t_spisok=record
surname:string[20];
name:string[20];
YearBorn:string[4];
ves:integer;
Rost:integer;
end;
mas=array [1..n] of t_spisok;
var
spis1:mas;
f: file of t_spisok;
i:integer;
Объяснение:
program spisok1;
const
n=5;
type
t_spisok=record
surname:string[20];
name:string[20];
YearBorn:string[4];
ves:integer;
Rost:integer;
end;
mas=array [1..n] of t_spisok;
var
spis1:mas;
f: file of t_spisok;
i:integer;
// То что ниже - это для проверки
begin
Assign(f,'klass9.dat');
Rewrite(f);
for i:=1 to n do begin
with spis1[i] do begin
Write('фамилия: ');
ReadLn(surname);
Write('имя: ');
ReadLn(name);
Write('год рождения: ');
ReadLn(yearborn);
Write('вес(кг): ');
ReadLn(ves);
Write('рост(см): ');
ReadLn(rost);
end;
Write(f, spis1[i]);
end;
Close(f);
Assign(f,'klass9.dat');
Reset(f);
writeln ('фамилия':20,'имя':20, 'год рожд.':10,' вес ':4,' рост ':4);
i:=1;
while not Eof(f) do begin
Read(f, spis1[i]);
with spis1[i] do begin
writeln (surname:20,name:20,YearBorn:10,ves:4,rost:4);
end;
i:=i+1;
end;
close(f);
readln;
end.
2) Ксения ( третья буква гл. и последняя буква не согл. т.е. должна быть гл.)