Взять рубашку
включить утюг
подождать пока утюг нагреется
положить рубашку на гладильную доску(или ещё на что то твёрдое)
погладить рубашку
свернуть рубашку
выключить утюг
Happy End!
Var A,B:real;
begin
readln(A, B);
writeln( sqrt(A*B) + 0.73 );
end.
Ответ:
5-команда ввода-read, команда вывода- write
6-функция random
7-Var i : Integer; {i - это переменная для работы с элементами массива}
Begin
For i:=1 To n Do {ввод массива с клавиатуры}
Read(m[i]); {чтение i-го элемента}
End;
8-var f: array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
f[i]:=random(10); { интервал [0,9] }
write(f[i],' ');
end;
end.
9-не понял
Объяснение:
Сначала наливаем 5 литров в 5-литровую кастрюлю. Оттуда 3 литра переливаем в 3-литровую. В итоге в 3-литровой 3 литра, в 5-литровой 2
(5-3). Далее выливаем из 3-литровой все в раковину, а из 5-литровой 2 литра которые в ней остались переливаем в 3-литровую. В итоге в 3-литровой 2 литра, 5-литровая пустая. Наполняем 5-литровую полностью (5 литров), и переливаем 1 литр в 3-литровую кастрюлю, тем самым наполняя ее полностью. В итоге в 5-литровой остается 4 литра воды, что нам и нужно.