Var
i, s: integer;
p: longint;
begin
p := 1;
for i := 20 to 35 do
if i mod 2 = 0 then p := p * i
else s := s + i;
writeln(s, ' ', p);
end.
На одну чашу весов поместим две монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Предположим, что перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. В противном случае фальшивой окажется более тяжелая из двух сравниваемых монет.
Ответ:
12 Скорость передачи данных по локальной сети 512000 бите.
Передача файла через это соединение заняла 1 минуту. Определите
объем данного файла в килобайтах.
Итак, есть скорость:512000 бит/с
Есть время: 60 сек;
Нужно найти расстояние. 60*512000=2048000*15 бит
2048000*15/8/1024=30000/8=15000/4=7500/2=3750 килобайт
13 Вычислите необходимый объем видеопамяти для графического
режима, если разрешение экрана монитора составляет 1024 на 768
пикселей и глубина цвета 32 бита.
1024*768*4=3 мегабайта