Если честно, то не понятно в чем суть вопроса...И тут легко ошибиться, но ответ 1.9875
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05
1. да; 2. нет; 3. картинка; 4. да; 5. да обязательно; 6. да
<span>
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<span>Program konfeti;
Uses
CRT;
Var
x,m:real; {x-цена за килограмм, m-текущая масса}
Begin
CLRSCR;
m:=1.2;
Write('Введите цену за килограмм конфет:');
Readln(x);
While (m<2.1) do
Begin
Writeln('Цена за ',m:0:2,' кг конфет равна ',m*x:0:2,' рублей');
m:=m+0.2
End;
Readln;
End.</span></span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var (a,b,c):=ReadReal3('Введите три числа через пробел:');
Writeln('Максимальное число ',Max(a,Max(b,c)))
end.
<u>№2</u>
begin
var (a,b):=ReadInteger2('Введите две оценки через пробел:');
if a+b>=9 then Writeln('Молодец!')
else Writeln('Подтянись!')
end.