Два мальчика на противоположном береге.
Один переправляет лодку, переплывает солдат, лодку возвращает другой, оба возвращаются на противоположный берег.
И пускай хоть бесконечность солдатов будет.

0 0

4 года назад

Ребята, помогите мне составить программу. Все условия показаны на рисунке.

Stoers

повторить 3 раза:

повторить 7 раз:

закрасить

вниз

закрасить

вверх

вправо

закрасить

вниз

закрасить

вниз

повторить 14 раз:

влево

вниз

0 0

1 год назад

Вывести строчные английские буквы в столбик подряд,с указанием их десятичных кодов и прописных значений. Напишите три варианта п

StalleR

1)
Var i : Byte;
Begin
For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.

2)
Var i : Byte;
Begin
i:=Ord('a');
While i<=Ord('z') do
Begin
    Writeln(Chr(i),' ',i);
    Inc(i);
end;
end.

3)
Var i : Byte;
Begin
i:=Ord('a');
Repeat
    Writeln(Chr(i),' ',i);
    Inc(i);
Until i>Ord('z');
end.

0 0

3 года назад

Файл размером 210 Кбайт передается через соединение со скоростью 5880 бит в секунду. Определите, на сколько Кбайт меньше можно п

Припевочка555 [7]

210 Кбайт = 1720320 бит
1720320/5880= 292.571429 секунд - время
292.571429*840= 245760 бит можно передать со скоростью 840 бит/с
1720320-245760=на 1474560 бит (собственно ответ)

0 0

4 года назад