1.1 2.3 ...................
Var
a: array[1..10] of integer;
i, count: integer;
begin
for i:=1 to 10 do
readln(a[i]);
count:=0;
for i:=1 to 10 do
if a[i] < 70 then
inc(count);
writeln(count);
end.
Var
a,i,n:longint;
begin
a:=10;
for i:=1 to 7 do
begin
inc(n,a);
inc(a,a div 10);
end;
writeln(n);
end.<span>
</span>
На телефоне нет программ для программирования (создания программ)