Var i: integer;
begin
for i:=1 to 9 do
writeln('7 * ', i, ' = ', 7 * i)
<span>end.</span>
Школа. По каким параметрам надо проанализировать систему?
1- 159,2-4,3-15,4-1000010,5-100000,6-1011
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger,0);
while n>0 do (n,k):=(n div 10,k+1);
Writeln(k)
end.
A+B/C+sqrt(C)/A-B ...........