Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
62 в 2 системе=111110; в 5 системе=222; в 8 системе=76; в 16 системе=3E
101 в 2 системе=1111001; в 5 системе=401; в 8 системе=145; в 16 системе=65
229 в 2 системе=11100101; в 5 системе=1404; в 8 системе=345; в 16 системе=E5
Сначала отправить лодку с мальчиками, потом обратно отправить одного мальчика, отправить лодку со взрослым, потом отправить мальчика с того берег(да), отправить двух мальчиков, а дальше все как с начала:)
Программа:
var
min, max, a: integer;
begin
assign(input, 'input.txt'); reset(input);
read(a);
max := a;
min := a;
while not(eof(input)) do
begin
read(a);
if a > max then max := a;
if a < min then min := a;
end;
writeln('Ответ: ', max - min);
end.
Описание программы:
Программа считывает все числа из входного файла "input.txt" и выводит максимальную разность двух чисел