<span>101111000,100 = </span>376,5
<span> 101010110,010 = </span>355,25
л ) наливаем 3 литра в кувшин.
2) переливаем 3 л в кувшин 5 л.
3) снова наливаем 3 л в кувшин.
4) переливаем 2 л из кувшин 3 л в кувшин 5 л. В кувшине 3 л остался 1 л.
5) из кувшина 5 л переливаем 5 л в кувшин 8 л. Там стало 7 л.
6) переливаем 1 л из кувшина 3 л в кувшин 5 л.
7) из кувшина 8 л наливаем 3 л.
В кувшине 8 л осталось 4 л, в кувшине 3 л стало 3 л, в кувшине 5 л стал 1 л.
8) Из кувшина 3 л выливаем 3 л в кувшин 5 л.
В кувшине 8 л осталось 4 л, в кувшине 5 л тоже стало 4 л.
Всё!
//PascalABC.NET 3.1 сборка 1200
begin
var s := ReadlnString('s =');
s := s.Replace('А', '*_*');
s := s.Replace('Б', 'А');
s := s.Replace('*_*', 'Б');
s := s.Replace('а', '*_*');
s := s.Replace('б', 'а');
s := s.Replace('*_*', 'б');
writeln(s);
end.
<span><span>
using</span> System;
using System.IO;
using System.Linq;
namespace FileApp
{
class MainClass
{
private static int Multicast(char first,char second, int system)
{
return Convert.ToInt32(first.ToString(), system) * Convert.ToInt32(second.ToString(), system);
}
private static void Method(string numberString,int system)
{
int firstAndSecond = Multicast(numberString[0], numberString[1], system); // Первые два
int lastAndPrevious = Multicast(numberString.Last(), numberString[numberString.Length - 2], system); //Последний и предпоследний
int firstAndLast = Multicast(numberString.First(), numberString.Last(), system); // Первый и последний
Console.WriteLine($"Произведение первых двух цифр: {firstAndSecond}");
Console.WriteLine($"Произведение последних двух цифр: {lastAndPrevious}");
Console.WriteLine($"Произведение первой и последней цифры: {firstAndLast}");
}
public static void Main(string[] args)
{
Console.Write("Введите число: ");
string numberString = Console.ReadLine(); //Число в виде строки
Console.Write("Выберите систему счисления: ");
int system = Convert.ToInt32(Console.ReadLine());//Система счисления
Method(numberString, system);
Console.ReadLine();//Задержка
}
}
}
</span>
Заменяет в строке
var
s : string;
i, lim : integer;
begin
readln (s);
i := 1;
lim := length (s);
while (i <= lim) do
begin
if s[i] in ['1'..'9'] then
begin
if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
begin
write ('ten');
inc (i);
end
else
case s[i] of
'1' : write ('one');
'2' : write ('two');
'3' : write ('three');
'4' : write ('four');
'5' : write ('five');
'6' : write ('six');
'7' : write ('seven');
'8' : write ('eight');
'9' : write ('nine');
end;
end
else write (s[i]);
inc (i);
end;
end.<span>
</span>