Есть разные целые типы, но тебе подходит ShortInt: от -128 до 127
Не понял, зачем тебе переменная m? Вот программа
program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
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 книги...
Сумма чаевых официанту: Sum = 0.15 * (X1 + X2 + X3);
Если X1 = X2 = X3, то Sum = 0.15 * 3 * X = 0.45 * X