===== PascalABC.NET =====
begin
var n := ReadInteger('Задайте n:');
var a := ReadArrInteger('Вводите массив:', n);
Println('Количество нулевых элементов равно',
a.Count(p -> p = 0))
end.
1. 1)30*70=2100(байт) требуется для хранения 1 страницы
2)10500/2100=5(стр) займет этот текст при печати
Ответ: г)
2. Т.к. программа находится на одном из восьми дисков=>N=8
Воспользуемся формулой нахождения информации
N=2^I
Подставим
8=2^i
I=3
Ответ: б)
Program P1;
var z,x,y,p,e:integer;
begin
write('Количество этажей = '); readln(x);
write('Количество квартир на лестничной площадке = ');
readln(y);
write('Номер квартиры = '); readln(z);
p:=(z-1) div (x*y)+1;
e:=((z-(p-1)*x*y)-1) div y +1;
writeln('Квартира ',z,' находится в ',p,' подъезде на ',e,' этаже');
end.
Пример:
<span>Количество этажей = 9
Количество квартир на лестничной площадке = 4
Номер квартиры = 67
Квартира 67 находится в 2 подъезде на 8 этаже</span>
Program xx;
var a,b,c,x:real;
begin
readln(a,b,c);
x:=(-(b)+sqrt(sqr(b)-(4*a*c)))/(2*a);
writeln('x1 = ',x:2:2);
x:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
writeln('x2 = ',x:2:2);
end.