21 час делим на 3,получаем количество делений за 21 час.
Затем количество делений умножаем на 2
21/3*2=14 амеб
BEGIN
INT I, SUM;
/* ЧИСЛО МОНЕТОК */
SUM := 0;
FOR (I := 0; I <= 10000; I++)
BEGIN
SUM := SUM + I;
END;
/* РЕЗУЛЬТАТ */
PRINTLN ('ЧИСЛО МОНЕТОК: ' + STR(SUM));
END
11.13.15.17.19.21.23.25.27.29.31.33.35.37.39.41....(шаг +2)т.е. число все время увел на 2
22.44.66.88.110.132.154...(шаг +22)т.е. число все время увел на 22
91.81.71.61.51.41.31.21.11.1....(шаг -10)т.е. число все время уменьна 10
_____________________________________
<span>23.53.73.83.(в числе 37 окончание на 7, а во всех остальных окончание 3)
</span>и так далее
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMin;
Writeln('Min a[', i + 1, ']=', a[i]);
i := a.IndexMax;
Writeln('Max a[', i + 1, ']=', a[i])
end.
<h2>-6 -10 9 0 -9 2 10 -7 1 3</h2><h2>Min a[2]=-10</h2><h2>Max a[7]=10</h2>
Var a,b,c:int64;
begin
read(a,b,c);
writeln(c);
writeln(a);
writeln(b);
<span>end.</span>