Класс натуральных чисел и класс квадратов
Program e;
var d : real; x,y,z : integer; all : integer;result: real;beginWriteln('ко-лво страниц');Readln(x);Writeln('ко-лво строк');Readln(y);Writeln('ко-лво символов');ReadLn(z);
d:= 1.44 * 1024;
all := x*y*z;
result := d/all;writeln('Поместится книг:',trunc(result)); end.
Пара это 1 и 2 , 3 и 4 , 90 и 45 смотря что задают
1. Объявлен целочисленный массив из 100 элементов, проиндексированных от 0 до 99.
2. Будет выведено p=2s=0
В параметрах процедуры Incr отсутствует var перед q, поэтому значение параметра при выходе из процедуры не изменится. Процедура увеличивает на 1 значение глобальной переменной p. Первоначально р=0 и два вызова процедуры сделают р=2. Значения s, как было выше пояснено, процедура не изменит, поэтому оно так и останется нулевым.