uses crt;
var k:longint;
function digitcount(k:longint):integer;
var kol:integer;
begin kol:=0;
while k>0 do begin inc(kol);
k:=k div 10;
end;
digitcount:=kol;
end;
BEGIN clrscr;
writeln('vvedite 4islo');
readln(k);
writeln('V nem cifr - ',digitcount(k));
readkey;
end.
Описать функцию PowerA3(A), возвращающую третью степень числа A (A — вещественный параметр). С помощью этой функции найти третьи степени пяти данных чисел.