Составить программу, которая для любого натурального числа печатает на естественном языке количество цифр в записи этого числа.составить программу на паскале.!

165

278

Посмотреть ответы 3

Ответы на вопрос:

kazanetov

Информатика

4,8(29 оценок)

Var a: uint64; k: integer; begin write ('введите число: '); readln (a); repeat k: =k+1; a: =a div 10 until a=0; writeln('количество цифр: ',k) end. var a: string; begin write ('введите число: '); readln (a); writeln('количество цифр: ',length(a)) end.

syaninp087af

Информатика

4,4(100 оценок)

Var a: real; begin writeln('введите чтсло'); readln(a); write('в записи этого числа '); case a of 1..9 : write ('одна цифра'); 10..99 : write ('две цифры'); 100..999 : write ('три цифры'); 1000..9999 : write ('четыре цифр'); 10000..99999 : write ('пять цифр'); 100000..999999 : write ('шесть цифр'); else writeln('данное число слишком велико'); end; end.

Ekaterinazuzu

Информатика

4,6(51 оценок)

Комп'ютерна програма - це набір інструкцій у вигляді слів, цифр, кодів, схем, символів чи у будь-якому іншому вигляді, виражених у формі, придатній для зчитування комп'ютером, які приводять його у дію для досягнення певної мети або результату

Объяснение: