Var
a, k: integer;
begin
readln(a);
while a > 0 do
begin
k := k + 1;
a:= a div 10;
end;
writeln(' k =', k);
end.
Пример:
105 k =3
66 k = 2
1 k =1
104 k =3
11 k =2
94 k =2
Сведения о системе;
2) средства диагностики компьютера
3) программа дефрагментации диска
4) средства коммуникации (коммуникационные программы)
5) диспетчеры файлов (файловые менеджеры)
6) средства сжатия данных (архиваторы)
7) антивирусные программы
8) средства обеспечения компьютерной безопасности
Var a,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
0 в 2сс = 0.
Теперь переводим 0,125.
0,125 * 2 = 0,25 (0) - целое число при умножении на 2.
0,25 * 2 = 0,5 (0)
0,5 * 2 = 1,0 (1)
Ответ: 0,001(2)
// Pascal ABC.Net версия 3.2 сборка 1387
begin
writeln('исходный массив:');
var a:=ArrRandom(100,-1000,1000).Println();
writeln('1 50 по возр:');
a.Reverse().Skip(50).Sorted().Println();
writeln('2 50 по убыв:');
a.Skip(50).SortedDescending().Println();
end.