а 45 , 34 4,8 [ 1 направить на 2 ] ну
1.а)
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.
Ответ:
1. Лазерные и струйные.
2. CD - диски!?
3. От количества оперативной памяти и ядров.
4. Гигагерцы
Рисунок 2, так как в других схемах перевозок между станциями нет (например, CD)