Банка 7 литровая-банка 1 Банка 4 литровая-банка 2 Сосуд 1 и 2 для того, чтобы разделить Наливаем в банку 1 и переливаем в банку 2, сливаем эти 4 литра в сосуд 1. В банке 1 оставалось 3 литра сливаем в сосуд 2. Наливам в банку 2 и переливаем в банку 1(делаем так два раза), таким образом, в банке 2 останется 1 л сливаем в сосуд 1. Остальное количество седа сливаем в сосуд 2. Готово.
alanatan5757
10.09.2022
Первая программа:
Var A:integer; P:real; Begin P:=1; For A:= 100 to 405 do if A mod 13 = 0 then P:=P*A; WriteLn('P = ',P); End.
Результат работы программы: P = 8.85587927807922E+56
Вторая программа:
Var A:integer; P:real; Begin P:=1; For A:= 11 to 36 do if A mod 2 = 0 then P:=P*A; WriteLn('P = ',P); End.
Результат работы программы: P = 4.37068711644365E+17
Третья программа:
Var x:real; Begin WriteLn('y(x) = 5*x +6'); x:=1; Repeat WriteLn('y(',x:0:3,') = ',5*x+6); x:=x+0.4 Until x>4; End.
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(21)-10; for i:=1 to 20 do write(A[i]:5); writeln; writeln('Каждый пятый эелемент массива: '); for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5); end.
2. var x,i: integer; A: array [1..20] of integer;
begin randomize; writeln('Массив: '); for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5); writeln; writeln('Натуральные числа в диапазоне [5..10]: '); for i:=5 to 10 do write(A[i]:5); writeln; x:=1; writeln('Их произведение: '); for i:=5 to 10 do x:=A[i]*x; write(x:5); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
На другой год винни пух запасся 10 литрами меда. под руками у него два ведра - 7-литровое и 4-литровое. как ему разделить мед пополам?
Банка 4 литровая-банка 2
Сосуд 1 и 2 для того, чтобы разделить
Наливаем в банку 1 и переливаем в банку 2, сливаем эти 4 литра в сосуд 1. В банке 1 оставалось 3 литра сливаем в сосуд 2. Наливам в банку 2 и переливаем в банку 1(делаем так два раза), таким образом, в банке 2 останется 1 л сливаем в сосуд 1. Остальное количество седа сливаем в сосуд 2. Готово.