1)
АВ = 40 / 20 = 2 часа (минимум)
АС + СВ = 30 / 30 + 25 / 20 = 2,25 часа
2) Рассмотрим остатки камней и кто выигрывает. Игрок - тот кто сейчас ходит, противник - тот кто ходит следующим. Рассматриваются только разумные ходы
1 камень - игрок однозначно проигрывает так как ход таки делать надо
2, 3, 4 камня - легко свести к ситуации 1 камня, противник однозначно проигрывает
5 камней - сколько не бери, все равно попадешь в ситуацию 2-4 камня, игрок однозначно проигрывает
6 камней - если свести ситуацию к ситуации 5 камней, то противник однозначно проиграет, потому надо взять 1 камень
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.
У жука 6 ног, а у паука - 8.
1-й способ.
Пусть пауков х, тогда жуков - (8 - х). Ног у пауков будет (8х), а у жуков - 6(8 - х). Т.к. всего ног у них 54, составим и решим уравнение
8х + 6(8 - х) = 54,
8х + 48 - 6х = 54,
2х + 48 = 54,
2х = 54 - 48,
2х = 6,
х = 6 : 2,
х = 3.
Значит, пауков в коробке 3, а жуков - 5 (8 - 3 = 5).
Ответ: 5 жуков и 3 паука.
2-й способ.
Предположим, что в коробке только жуки, тогда ног у них было бы 6 · 8 = 48. Но ног у них 54, т.е. как бы "лишних" ног будет 54 - 48 = 6. И эти лишние ноги - это ноги пауков. Т.к. по сравнению с жуками у пауков на 2 ноги больше, о эти "лишние" ноги - это по ноги пауков. Значит, пауков в коробке будет 6 : 2 = 3, тогда жуков будет 8 - 3 = 5.
Ответ: 5 жуков и 3 паука.
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('Ответ: ');
Case C of
1:WriteLn(A+B);
2:WriteLn(A-B);
3:WriteLn(A*B);
4:WriteLn(A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Вывод результат, точно как в условии:
Var A,B:real;
C:integer;
Begin
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
While C <> 0 do
Begin
Write('Введите два числа: ');
ReadLn(A,B);
Write('Ответ: ');
Case C of
1:
if B < 0 then WriteLn(A,B,'=',A+B)
else WriteLn(A,'+',B,'=',A+B);
2:
if B < 0 then WriteLn(A,'+',-B,'=',A-B)
else WriteLn(A,B,'=',A-B);
3:
if B < 0 then WriteLn(A,'*(',B,')=',A*B)
else WriteLn(A,'*',B,'=',A*B);
4:
if B < 0 then WriteLn(A,':(',B,')=',A/B)
else WriteLn(A,':',B,'=',A/B);
End;
WriteLn('1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход');
ReadLn(C);
End;
WriteLn('Пока!');
End.
Пример:
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
4
Введите два числа: 4
-2.5
Ответ: 4:(-2.5)=-1.6
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
1
Введите два числа: -3
-6
Ответ: -3-6=-9
1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - выход
0
Пока!
