Дано натуральное число n. определить максимальную цифру, используемую в записи числа и подсчитать, сколько раз она использована в записи числа n. паскаль
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
procedure Fib(n:integer; var r:sequence of integer); begin if n<1 then exit; // нечего глупости задавать case n of 1: r:=Seq(1); 2: r:=Seq(1,1); else begin r:=Seq(1,1); var (p1,p2):=(1,1); var p:integer; loop n-2 do begin p:=p1+p2; r:=r+Seq(p); (p1,p2):=(p2,p) end end end end;
begin var s:sequence of integer; var n:=ReadInteger('n='); Fib(n,s); s.Println end.
// Площади круга по известному радиусу float spacecircle(float radius){ return (PI * radius * radius); }
// Длины окружности по известному радиусу float circumference(float radius){ return (2 * PI * radius); }
// Площади прямоугольника по значениям длины и ширины float spacerectangle(float width, float height){ return (width * height); }
// Объема цилиндра по значениям высоты цилиндра и радиуса основания float volcylinder(float height, float radius){ return (spacecircle(radius) * height); }
// Внимание! Если программа не работает, обновите версию!
procedure Fib(n:integer; var r:sequence of integer);
begin
if n<1 then exit; // нечего глупости задавать
case n of
1: r:=Seq(1);
2: r:=Seq(1,1);
else begin
r:=Seq(1,1);
var (p1,p2):=(1,1);
var p:integer;
loop n-2 do begin
p:=p1+p2;
r:=r+Seq(p);
(p1,p2):=(p2,p)
end
end
end
end;
begin
var s:sequence of integer;
var n:=ReadInteger('n=');
Fib(n,s);
s.Println
end.
Пример
n= 8
1 1 2 3 5 8 13 21