Var n:longint;
function kol(n:integer):integer;
begin
if n<10
then kol:=1
else kol:=kol(n div 10)+1;
end;
begin
write('n = ');
readln(n);
writeln('k = ',kol(n));
end.
Пример:
<span>n = 15324
k = 5</span>
Как назовете файл, так он и будет называться. В данном случае имя word_2
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(6,i->(i+10)**3).Println
end.
<u>Результат</u>
1000 1331 1728 2197 2744 3375
Смотри одинарная стрелка(в одну сторону) это устройства вывода информации(от компьютера), ввод (к компьютеру), а двойная это как и ввод, так и вывод информации.
Одинарные стрелки(к компьютеру):
сканер, веб-камера, микрофон, мышь, джойстик, тачка
Одинарные стрелки(от компьютера):
колонки, монитор, принтер, наушники, встроенный динамик
Двойные стрелки:
модем, дисковод
Var x,s:integer;
begin
ReadLn(x);
while (x>0) do begin
s+=x;
x-=1;
end;
WriteLn(s);
end.