Составить программу подсчитывающую количество цифр числа вводимого с клавиатуры
10-11 класс
|
var
a,i,n:integer;
begin
readln(a);
while a>0 do
begin
inc(i);
a:=a div 10;
end;
writeln(i);
end.
Другие вопросы из категории
сделать так чтобы когда другие люди заходили на него и качали фильми, а мне шли за ето деньги.
- Сделать проверку целой части
- Сделать проверку дробной части
монитором, имеющим разрешение 1280x1024?
Читайте также
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
2. Составить программу для упорядоченное двух элементов по убыванию.
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали