Var n:integer;
x:real;
begin
n:=0;
x:=300000;
while x<550500 do
begin
x:=x+0.11*x;
n:=n+1;
end;
writeln(n);
readln;
end.
Если границы индекса массива n1 и n2 соответственно, то количество элементов = n2-n1+1
1. [4..18]: 18-4+1=15
2. [3..11]: 11-3+1=9
3. [1..15]: 15-1+1=15
4. [10..28]: 28-10+1=19
Во вложении
--------------------------------
var
Digit: integer;
begin
readln(Digit);
writeln(Digit mod 3 = 0);
end.
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
writeln('s = ',s);
end.
Пример:
125
s = 8