Ответ:
Должна быть не маленькая англ. буква l, а большая англ. буква I
Объяснение:
Ответ:
Если A = 4, то ответом будет 1089
Объяснение:
begin
ReadInteger('num =').ToString.ToCharArray
.IndexesOf(x -> x = '7').Select(x -> x + 1).Println;
end.
Смотрим на кол-во строк в которых ширина меньше 15 . таковых 4. смотрим на графу вид и из 4 выбираем только ч/б. таковых 2.
не 3, тк в условии написано МЕНЬШЕ 15, а не МЕНЬШЕ ИЛИ РАВНО 15.
ОТВЕТ-2
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>