Ответ:
18
Объяснение:
Проверено в Xsel
Выбираешь через шифт ячейки от B12 по В17 и считаешь
Получается 3 колонки, 6 строчек, умножаешь и получаешь 18
Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c1:=ReadReal('Цена первой покупки:');
var c2:=ReadReal('Цена второй покупки:');
var c3:=ReadReal('Цена третьей покупки:');
var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
var p:=ReadReal('Внесена сумма:');
Writeln('Причитается сдача: ',p-s)
end.
<u>Пример</u>
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98
Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.