1 год назад

Помогите пожалуйста , я сейчас на уроке очень срочно!!!!Составьте программу нахождения количество цифр натурального числа n.

Знания

Информатика

1 ответ:

Katya Silver1 год назад

0 0

Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>

Читайте также

Приведите примеры кодов и определите их длины

Muzh [201]

Длина кода должна быть любая а вот с длиной не так длина должна совпасть с кодами при этом надо учесть силы цифр

0 0

4 года назад

Дан одномерный массив чисел. Найти количество элементов массива, равных заданному числу, и вывести их номера. Найти сумму элемен

Артем1988 [42]

// F#
[<EntryPoint>]
let main argv =
let getRandomCollection n =
let rand = new System.Random()
Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |]
let inputArray = getRandomCollection 15
printf "source array: %A\n" (inputArray |> Array.toList)
// First part
printf "numberToCheckOnEqual: "
let numberToCheckOnEqual = System.Console.ReadLine() |> System.Int32.Parse
let indecesEqualsToNumber =
inputArray
|> Array.mapi (fun i x -> (x, i))
|> Array.filter (fun (x, i) -> x = numberToCheckOnEqual)
|> Array.map (fun (x, i) -> i)
|> Array.toList
printf "%d equals to %d: %A\n" (indecesEqualsToNumber |> List.length) numberToCheckOnEqual indecesEqualsToNumber
// Second part
printf "a: "
let a = System.Console.ReadLine() |> System.Int32.Parse
printf "b: "
let b = System.Console.ReadLine() |> System.Int32.Parse
let sum =
inputArray.[a..b]
|> Array.sum
printf "sum of array [%d..%d]: %d\n" a b sum
// Last part
let finalArray =
inputArray
|> Array.map (fun x -> if x < 0 then x*x else x)
printf "final array: %A" finalArray
System.Console.ReadKey true |> ignore
0

0 0

4 года назад

Как раставить 5 стульев по 2 вдоль каждой стены

мирася

Три стула по углам, и 2 у стенок

0 0

4 года назад

Прочитать ещё 2 ответа

Постройте электронную таблицу " Оплата электроэнергии " для расчёта ежемесячной платы за расход электроэнергии в течение года. И

Юлия42754

Вот, оплата электроэнергии в Excel

0 0