Задача: найти самую большую цифру целого числа. В турбо паскаль.

Question

50

в избранное ссылка

Знаете ответ?

karlson · Accepted Answer

66

karlson

31 января 2023

Program proga; var a,c,b: integer; Begin readln (a); c: =0; while (a>0) dobeginb: =a mod 10; a: =a div 10; if b>c thenc: =b; end; writeln (c); end.

комментировать

в избранное ссылка отблагодарить