Var m: array[1..15] of real; i: integer; n: real; begin randomize; for i: =1 to 15 do begin m : =random(20)-20; if( m< 0) then begin m: =sqr(m); end;
Ответ дал: Гость
1)10см=3,937дюма
dpi - точек на дюйм
3,937*1000=3937 - точек
3937*3937=15499969 точек
каждая точка кодируется 2-мя байтами
всего 30999938 байт
1 мегабайт = 1024*1024=1048576
на картинку 29,56 мегабайта
2) 256 1 байт
200*100=20000 пикселей
1 килобайт = 1024 байта
картинка займет 20000/1024=19,5 килобайта
ps а вообще, каждое нужно писать отдельно
Ответ дал: Гость
type
person=record
fam: string;
imya: string;
day: integer;
end;
var
a: array[1..50] of person;
i,n,z: integer;
begin
write('n='); readln(n);
for i: =1 to n do
begin
write('fam-'); readln(a[i].fam);
write('imya-'); readln(a[i].imya);
write('day-'); readln(a[i].day);
end;
write('z-'); readln(z);
for i: =1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.
Ответ дал: Гость
в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
Популярные вопросы