Напишите программу на языке Паскаль для нахождение количества цифр в записи положительного целого числа x.
10-11 класс
|
program ololo;
var a,b:integer;
begin
read(a);
if a = 0 then begin write(1); exit; end;
while a <> 0 do
begin
inc(b);
a := a div 10;
end;
write(b);
end.
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
Другие вопросы из категории
высокого уровня
Читайте также
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
Для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры).
(Подсказка. Используйте тип данных integer и операции div и mod)
данных integer, и операции div mod
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!