Вот ответ: 1+2+3+4:5+6-7=1
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
Var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
<span>end.</span>
Содержимое ячейки не меняется в зависимости положения ячейки в таблице. Если изменить числовое значение ячеек A5 или C3, то результат формулы изменится и подставится в то, или иную ячейку где, непосредственно, написана формула