7 же. Прибавить 2 к 5 не можешь в уме, что ли?
Оформи таблицу сам. пишу алгоритм, цифры тебе пояснения сколько в каком сосуде воды.
<span>Наполнить сосуд А 5-0
</span><span>Перелить из сосуда А в В 0-5
</span><span>Наполнить сосуд А 5-5
</span>Перелить из сосуда А в В 1-9
<span>Вылить из сосуда б 1-0
</span>Перелить из сосуда А в В 0-1
<span>Наполнить сосуд А 5-1
</span>Перелить из сосуда А в В 0-6
Наполнить сосуд А 5-6
Перелить из сосуда А в В 2-9
<span>Вылить из сосуда б 2-0
</span>
<span>Перелить из сосуда А в В 0-2
</span><span>Наполнить сосуд А 5-2
</span><span>Перелить из сосуда А в В 0-7</span>
<span>x = int(input("Висота = "))
z = int(input("Ширина = "))
for i in range(x+1)<span>:
</span>----if i==0 or i==x<span>:
</span></span>--------<span>for j in range(z)<span>:
</span></span>------------<span>print(' - ',end='')
</span>----<span>else<span>:
</span></span>--------<span>print('|\t',end=' ')
</span>--------<span>for j in range(1,z+1)<span>:
</span></span>------------<span>print(' ',end='')
</span>--------<span>print('|',end='')
</span>----print()
//Pascal ABC.NET 3.1 сборка 1219
Var
n,a,b:integer;
x:array of integer;
procedure vvod(n:integer; var x:array of integer);
begin
x:=readarrinteger(n);
end;
begin
readln(n,a,b);
vvod(n,x);
var sub1:=x.Where(x -> x<a);
var sub2:=x.Where(x -> x>b);
var sub:=sub1+sub2;
n:=1;
writeln('Сумма не вошедших:',sub.Sum);
foreach var i in sub do
n:=n*i;
writeln('Произведение не вошедших:',n);
writeln('Количество не вошедших:',sub.Count);
writeln('Все элементы:',sub);
end.
Пример ввода:5
1
5
-1
-2
4
5
6
Пример вывода:Сумма не вошедших:3
Произведение не вошедших:12
Количество не вошедших:3
Все элементы:[-1,-2,6]
Program abc;
var a, b, k: integer;
BEGIN
read (a, b);
for k:=1 to (b-a) do
begin
if (a mod 2) <>0 then
writeln ( a)
else
writeln ('-', a);
a:=a+1
end;
end.
