1. в вашем распоряжении имеются 4 емкости – на 200 г, 400 г, 600 г и 800 г молока все цилиндрической формы. емкость, вмещающая 400 г молока, наполнена молоком, остальные пустые. пользуясь только этими емкостями, разлейте молоко так, чтобы в каждой емкости-цилиндре оказалось ровно по 100 г молока. 2. в одном автобусе ехали 20 мальчиков, в другом – 20 девочек. автобусы встретились. пять мальчиков перешли в автобус девочек, а потом столько же детей перешли из автобуса девочек в автобус мальчиков. кого стало больше – девочек в автобусе мальчиков, или мальчиков в автобусе девочек?

👇

Ответ:

nikitamerenkov

22.05.2021

Я знаю только ответ на номер 2
"Столько же детей" подразумеваются те же пять мальчиков.
Так что девочек в автобусе мальчиков и мальчиков в автобусе девочек равное количество, поскольку ни одних, ни других, нету в "чужих" автобусах!
Может быть, я не понятно объяснил?

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

Открыть все ответы

Ответ:

tanyaxxx15

22.05.2021

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
F.Seek(0);
var e:integer;
Print('F:');
while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    end;
F.Seek(0);
while not F.Eof do begin
    Read(F,e);
    if e<0 then Write(G,e)
    end;
F.Seek(0);
while not F.Eof do begin
    Read(F,e);
    if e=0 then Write(G,e)
    end;
F.Close;
Writeln;
Print('G:');
G.Seek(0);
while not G.Eof do begin
    Read(G,e); Print(e)
    end;
G.Close
end.

Тестовое решение:
F: -14 15 -16 0 7 0 18 19 -12 -10 6 15 -19 -14 -15 -1 -6 -4 -20 12 10 4 3 16 -14 -20 3 10 -13 -16
G: 15 7 18 19 6 15 12 10 4 3 16 3 10 -14 -16 -12 -10 -19 -14 -15 -1 -6 -4 -20 -14 -20 -13 -16 0 0

Данное решение неоптимально по времени, поскольку файл читается трижды. Можно сделать иной вариант, читая данные за один проход и помещая в две вс структуры памяти отрицательные и нулевые элементы.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var F,G:file of integer;
Assign(F,'FFile.dat'); Rewrite(F);
for var i:=1 to 30 do Write(F,Random(-20,20));
// Файл F создан и заполнен
Assign(G,'GFile.dat'); Rewrite(G);
var n:=F.FileSize;
var neg,zer:array of integer;
SetLength(neg,n); SetLength(zer,n);
F.Seek(0);
var e:integer;
var ineg:=0;
var izer:=0;
Print('F:');
while not F.Eof do begin
    Read(F,e); Print(e);
    if e>0 then Write(G,e)
    else
      if e<0 then begin neg[ineg]:=e; Inc(ineg) end
      else begin zer[izer]:=e; Inc(izer) end
    end;
F.Close;
Writeln;
SetLength(neg,ineg);
foreach e in neg do Write(G,e);
SetLength(zer,izer);
foreach e in zer do Write(G,e);
Print('G:');
G.Seek(0);
while not G.Eof do begin
    Read(G,e); Print(e)
    end;
G.Close
end.

Тестовое решение:
F: 7 5 -14 6 -11 -9 5 -1 5 -5 -7 -1 4 -20 17 -19 0 -3 0 6 20 1 -2 -18 9 20 0 -2 3 -13
G: 7 5 6 5 5 4 17 6 20 1 9 20 3 -14 -11 -9 -1 -5 -7 -1 -20 -19 -3 -2 -18 -2 -13 0 0 0

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

Ответ:

dashaegirova

22.05.2021

Устройство «Марк 1» задуманное профессором Говардом Эйкеном и выпущенное IBM в 1941 году, представляло собой первый в Америке программируемый компьютер. Он был огромен, занимая в длину свыше 17 метров, а в высоту — свыше 2.5 метра. Машина, в оболочке из стекла и нержавеющей стали, весила 4,5 тонны, а общая протяженность ее соединительных проводов чуть-чуть не дотягивала до 800 км. (это можно просто запомнить - За синхронизацию основных вычислительных модулей отвечал пятнадцатиметровый вал, который приводил в движение электродвигатель мощностью 4 кВт)

Объяснение:

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

Это интересно:

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...