Дано натуральное число n( n<9999). cколько цифр в числе n . паскаль
var
k, n : word;
begin
k := 0;
write('введите N: ');
readln(n);
while n <> 0 do
begin
n := n div 10;
inc(k);
end;
writeln('количество цифр: ', k);
readln
end.
Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 18.06.2019
Дано натуральное число n( n<9999). cколько цифр в числе n . паскаль
Информатика, опубликовано 18.06.2019
Информатика, опубликовано 18.06.2019
Задано два целых числа А и В найдите сумму ничетных чиселот А до В
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Слайдтардың жекелеген нысандары жан бітірімі қалай бапталады
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Объясните, как решается, желательно подробно, буду очень благодарен!!!
Алгебра, опубликовано 13.06.2019
Обществознание, опубликовано 13.06.2019
Астрономия, опубликовано 13.06.2019
Алгебра, опубликовано 13.06.2019
Английский язык, опубликовано 13.06.2019
Срочно! Помогите пожалуйста, задание ниже. Задание на времена
Алгебра, опубликовано 13.06.2019
Математика, опубликовано 13.06.2019
Алгебра, опубликовано 13.06.2019
Математика, опубликовано 13.06.2019
Химия, опубликовано 13.06.2019
Визначіть осмотичний тиск розчину при 18°С, якщо він вміщує 0,2 моля неелектроліту в 2 л.