1 О и М Б1 и Б2 к берегу2 -
2 О и М Б1 к берегу1 Б2
3 М и Б1 О к берегу2 Б2
4 М и Б1 Б2 к берегу1 О
5 М Б1 и Б2 к берегу2 О
6 М Б1 к берегу1 О и Б2
7 Б1 М к берегу2 О и Б2
8 Б1 Б2 к берегу1 О и М
9 - Б1 и Б2 к берегу2 О и М
Таблица истинности во вложении.
Весь код в прикрепленках. Нужно просто откомпилировать в любом IDE. Если есть вопросы, пиши в коментариях, всё объясню. Запустив программу, нужно просто указать полный путь к файлу, в котором записаны два числа. В каждом ряду записываешь по 1 числу. Максимальная длина числа в данном формате файла - 1024 символа. Поменяй на произвольный формат файла, к примеру "myFile.myextention", а так же укажи больший размер переменной в main функции, в которую считывается файл и всё, можешь писать любую длину числа, главное отбей сновой строки каждое.
Var
s:real;
i,n:longint;
begin
read(n);
for i:=1 to n do
s:=1/(2*i-1);
writeln(s);
end.
Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae