1048 1053 1060 1054 1056 1052 1040 1058 1048 1047 1040 1062 1048 1071
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Program Multy;
var i, n, x, mt:integer;
begin
write('введите целое число X ');
readln(x);
write('введите степень N ');
readln(n);
mt:=x;
for i:=1 to (n-1) do
begin
mt:=mt*x;
end;
writeln(x,' в степени ',n,' равно ',mt);
end.
<span>1. </span>В гигабайте 1024 мегабайт. 1) 120*1024 = 122880 - это мегабайт в 120 гигабайтах
2) 122880/512= 240.
<span>Ответ: в 240 раз.
2. 0,5 Кбайт - 512 байт
т.к. 1 байт - 8 бит, следовательно 512 байт - это 4096 бит ( обьем первого сообщения)
1) 4096 - 500=3596 бит =</span><span>449,5 байт
3. 1) </span>8 Гб * 1024 = 8192 Мб
2) 8192 / 150 = 54,61333
Ответ: 54
4. 1 символ = 1 байт.Строка : 40 символов * 1 байт = 40 байт.Страница : 50 строк *40 байт = 2000 байт.Книга : 200 страниц * 2000 байт = 400 000 байт / 1024 = 390,625 Кб<span>На 1 дискету вместится:
1) 1440 Кб : 390,625 Кб = 3,6864 = 3,6 книг</span>
<span>На 1</span><span> </span><span>CD</span><span>-</span><span>Disk</span><span>. вместится:</span>
800 Мб : 390,625 Кб = 800 Мб * 1024 = 819 200 Кб : 390,625 Кб = 2097, 152 книги...
Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=<span>x+y+1;
</span>if x*y*z<min then min:=x+y+1;
write(min+1);
end.