М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

1) есть 3 сосуда 8 2 3 литра нужно за 3 хода получить 4 литра в сосуде 8 литров есть вода наливать или выливать воду нельзя. 2)есть 3 сосуда 10 3 4 литра в сосуде 10 литров есть вода наливать и выливать нельзя, нужно получить 5 литров за 5 ходов 3) есть 3 сосуда 5 7 12 литров нужно чтобы в двух из них было по 6 литров в сосуде 12 литров есть вода.

👇
Ответ:
zhanara3109
zhanara3109
06.02.2021

Смотрите картинки.

Объяснение:

Запись А-Б означает, что вода переливается из сосуда А в сосуд Б


1) есть 3 сосуда 8 2 3 литра нужно за 3 хода получить 4 литра в сосуде 8 литров есть вода наливать и
1) есть 3 сосуда 8 2 3 литра нужно за 3 хода получить 4 литра в сосуде 8 литров есть вода наливать и
1) есть 3 сосуда 8 2 3 литра нужно за 3 хода получить 4 литра в сосуде 8 литров есть вода наливать и
4,6(48 оценок)
Открыть все ответы
Ответ:
Anastasia7711
Anastasia7711
06.02.2021
Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)
4,4(45 оценок)
Ответ:
Missxart
Missxart
06.02.2021
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  case ReadInteger('Номер месяца (1-12):') of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.

Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
  Write('Номер месяца (1-12): '); Read(n);
  case n of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.
4,7(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ