Задали , но в ней почти ничего не понял: паскаль. введите любое число и выведите на экран наибольшую цифру в числе. например ввожу 5683, а он мне должен вывести: 8. начало программы я допер: program z1; var n: integer; begin k: =0; writeln('введите любое число'); readln(n); while n< > o do begin n: =n div 10; k: =k+1; end; тем самым мы нашли количество цифр в числе, а вот что делать дальше я не знаю(

218

393

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

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

karinarei2017

Информатика

4,5(31 оценок)

Азачем нам, собственно, находить количество цифр в числе? можно просто сравнивать соседние числа. uses crt; var a,k,max: integer; begin readln(a); while a> 0 do begin k: =a mod 10; if k> max then max: =k; a: =a div 10; end; writeln(max); end.

ксения23242526

Информатика

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

I=2 2 байта=16 битов потом на символ стало уделяться 8 битов, т.е. в два раза меньше. получается, что изначально текст весил 2048 бит, и на символ уделялось 16 бит. тогда количество символов=2048/16=128. ответ 128 символов.