Файл с расширением XLS содержит электронную таблицу. Это расширение программы Excel
Первый способ:
Var n:longint;
Begin
Write('n = ');ReadLn(n);
n:=n*n;
if frac(Ln(n)/Ln(10)) > 0 then WriteLn(int(Ln(n)/Ln(10))+1)
else WriteLn(Ln(n)/Ln(10))
End.
Второй способ:
Var
n,k:longint;
Begin
Write('n = ');ReadLn(n);
k:=0;
n:=n*n;
While n > 0 do
Begin
k:=k+1;
n:=n div 10
End;
WriteLn(k);
End.
Практически все правильно. Но если вчитаться в условие 3-ей задачи, то нужно найти файлы с именем file, а ты ее указываешь * перед точкой, что является ошибкой, ведь у тебя указано четкое имя файла.
-кнопка включения монитора
<span>-кнопка на экране монитора </span>
<span>-флажок на экране монитора </span>
<span>-фирменный значок на лицевой панели монитора </span>
<span>-пиктограмма документа на экране монитора</span>