Ответ записать в формате writeln(e:4:1).
тогда после запятой будет 1 символ
<span><span>program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
while (i<=15) do
begin
</span>s := s + i*cos(i*x); <span>
i := i + 1;
end;
writeln('S= ', s:0:2);
end.</span><span>а вот с repeat until
program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
repeat
</span>s := s + i*cos(i*x); <span>
i := i + 1;
until i>15;
writeln('S= ', s:0:2);</span></span>
для того чтобы выполнить программу номер два необходимо чтобы в ванну спокойно вмещалось 15 литров.
Первая программа
1) Долить 5литров
2) Слить 3 литра
3) Долить 5 литров
4) Слить 3 литра
В ванне 4 литра
Вторая программа
1) Долить 5литров
2) Долить 5литров
3) Долить 5литров
4) Слить 3 литра
5) Слить 3 литра
6) Слить 3 литра
7) Слить 3 литра
В ванне 3 литра
A.колонка.
Б.сервер.
В.монитор.
Г.сканер.
Лишное слово сервер.
Все остальное - устройства компьютера.А сервер -компьютер.
360000 битов.
351.5625 кибибайт
0.3433227539062 мебибайт