Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.
Результат:
Быков 1 коров 9 телят 90
//PascalABC.NET
begin
readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.
40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
600 Мбайт = 600 * 1024 * 1024 * 8 бит = 5033164800 бит
Кол-во = 343597383680 / 5033164800 шт = 68.26666666666667 шт ~= 69 шт (округляем в большую сторону так как кусками тут быть не может)
________________________________________________
- Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт
- '/' - разделить
- '*' - умножить
- '^' - возведение в степень
S - текст V - скорость печатания каждой девочки
Печатают вдвоём:
S/(2*V) = 1 час --->S = 2*V
Печатают втроём:
S/(3*V) = 2*V/ (3*V) =2/3часа =120/3 = 40 мин
Сущестует в любых системах исчисления, иначе бы не смогли работать с этим числом.