Наберите 4 литра в любом из сосудов. объемы сосудов 8, 5 и 3 литра

102

227

Посмотреть ответы 2

Ответы на вопрос:

pashamironov20

Информатика

4,4(51 оценок)

Набираем во 2 сосуд(5 литров) и переливаем в 1 сосуд(8 литров). затем опять наливаем во 2 и переливаем в 1. во втором останется 2 литра. выливаем всё из 1 сосуда и переливаем в него 2 литра из 2 сосуда. затем 2 раза повторяем действия: наливаем воды во 2 сосуд и переливаем в 1. после 2 повторения во 2 сосуде будет 1 литр воды.

Zhenya2188

Информатика

4,8(49 оценок)

1) program asd; uses crt; const n=10; var a: array[1..n] of integer; i,kp,s: integer; begin writeln('массив: '); for i: =1 to n do begin a[i]: =random(20); write(a[i]: 4); end; writeln; for i: =1 to n do begin if a[i] mod 3=0 then s: =s+1; end; writeln('сумма: ' ,s); end.2)program asd; uses crt; const n=10; var a: array[1..n] of integer; i,kp,s: integer; beginwriteln('массив: '); for i: =1 to n do begin a[i]: =random(20)-10; write(a[i]: 4); end; writeln; for i: =1 to n do begin if a[i]< 0 then s: =s+1; end; if s=0 then writeln('нет отр. элементов! '); writeln('сумма отр. элементов: ' ,s); end.