Var p1,p2,p3,p4:integer;
f,s: real;
Begin
write('Введите площадь в Га:');
read(f); //f--сколько всего Гектар
write('Количество учеников в 1 классе ');
read(p1); //p1--учеников в 1 классе
write('Количество учеников в 2 классе ');
read(p2); //p2--учеников в 1 классе
write('Количество учеников в 3 классе ');
read(p3); //p--3учеников в 1 классе
write('Количество учеников в 4 классе ');
read(p4); //p4--учеников в 1 классе
s := f / (p1 + p2 + p3 + p4); //s для 1 человека
writeln('Для 1 класса ', s * p1 : 2:1, ' га.');
writeln('Для 2 класса ', s * p2 : 2:1, ' га.');
writeln('Для 3 класса ', s * p3 : 2:1, ' га.');
writeln('Для 4 класса ', s * p4 : 2:1, ' га.');
End.
Объяснение: ну как так можно быть таким глупым ОДНОКЛАССНИКАМ АНТОН
1.)Разрешение - произведение длины на ширину картинки.
В этом случае картинка - квадрат и у него разрешение 600*600.
У этого квадрата сжали в 2 раза длину и ширину - 300*300, следовательно уменьшили его в (600*600)/(300*300)=4 раза.
С цветовой палитрой тоже все просто - берем i от исходной и i от конечной и делим их (i - степень двойки).
24/16=1,5 раза
Теперь просто находим размер конечного файла.
12/(4*1,5)=2
ответ: 2
2.) Сначала воспользуемся формулой: V = F * n * i * t1, где V - объем, F - частота дискретизации, n - количество каналов, i - глубина кодирования, t - время записи данных. Подставим все известные данные:
V = 48000 * 2 * 16 * 90 бит.
Теперь выразим время передачи из формулы V = U * t, где V - объем, U - скорость, t - время передачи.
t = V / U, подставляем данные:
Получили ответ в секундах, но нас просят указать количество минут:
t2 = 4320 / 60 = 72 минуты
ответ: 4320 секунд
begin
var m := Arr('Зима', 'Зима', 'Весна', 'Весна', 'Весна', 'Лето',
'Лето', 'Лето', 'Осень', 'Осень', 'Осень', 'Зима');
var k := ReadInteger('Введите номер месяца:') - 1;
if k.InRange(0, 11) then Println(m[k])
else Println('Недопустимый номер месяца')
end.
Введите номер месяца: 11Осень