1 мешок
а,и,о,у,ю,э,я,ы,е.
2 мешок
о,а,и,у,ю,э,я,е,ы.
Const
key = 3;
var
i: integer;
s: string;
function Encode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) + key);
Encode := s;
end;
function Decode(s: string; key: integer): string;
var
i: integer;
begin
for i := 1 to Length(s) do
s[i] := chr(ord(s[i]) - key);
Decode := s;
end;
begin
write('Введите строку данных - ');
readln(s);
writeln('Выберите действие');
writeln('1 - Закодировать');
writeln('2 - Раскодировать');
readln(i);
case i of
1: s := Encode(s, key);
2: s := Decode(s, key);
end;
Writeln(s);
end.
Если правильно понял задание. На будущее, желательно указывать в чем работаете.
а) 5
б) 4
в) 40
г) 1
<style>
#Таблица { border-collapse: collapse; }
#Таблица td { width: 30px; height: 30px; border: 1px solid; }
</style>
<table id="Таблица">
<tr><td colspan=8></td></tr>
<tr><td rowspan=6></td><td colspan=6></td><td rowspan=7></td></tr>
<tr><td rowspan=4></td><td colspan=4></td><td rowspan=5></td></tr>
<tr><td rowspan=2></td><td colspan=2></td><td rowspan=3></td></tr>
<tr><td></td><td></td></tr>
<tr><td colspan=3></td></tr>
<tr><td colspan=5></td></tr>
<tr><td colspan=7></td></tr>
</table>
#Ruby
n = gets
a = gets # пластик
b = gets # стекло
c = gets # возврат
litrov = 0
if a < b-c
litrov = n/a
else
while (n >= a or n >= b)
if n >= b
n -= b-c
else
n -= a
end
litrov += 1
end
end
p litrov