Нужно сначала наполнить 5 литровое ведро и вылить в 9, а потом ещё раз наполнить 5 литровое ведро и вылить в 9 литровое в котором уже есть вода. Остаток в 5 литровом ведре и будет 1 литр. Как-то так
<span>4) F:\Школа\Столовая\Обед\Меню.doc
Файл хранился в "Столовой", после в ней создали "Обед". Получилось </span>F:\Школа\Столовая\Обед
и вот сюда поместили Меню.doc
var
c:integer;
begin
write('Введите число '); readln(c);
c := abs(c);
if c div 10 > c mod 10 then
writeln('Первая цифра больше второй')
else
if c div 10 < c mod 10 then
writeln('Вторая цифра больше первой')
else
writeln('Цифры равны');
end.
var
a, b: real;
begin
write('Введите a,b: ');
readln(a, b);
writeln('Гипотенуза = ', sqrt(sqr(a) + sqr(b)):0:2);
end.