Найти максимальную цифру натурального числа n. паскаль input со стандартного устройства ввода вводится 1 натуральное число, не превосходящее 2000000000. output нужно выдать на стандартное устройство вывода 1 цифру – наибольшую в данном числе. sample input sample output 375859 9 123856387 8

ответ:

var n,max,l: integer;

begin  

readln(n);

max : = -1000;

while n < > 0 do

begin

l: = n mod 10;

if l > max then

max : = l;

n : = n div 10;

end;

writeln(max);

end.

объяснение:

#include < iostream> using namespace std; int main() {       int n, k, a, b, c, h;       setlocale(lc_all, "rus");       cout < < "выберите фигуру \n";       cout < < "1 - треугольник \n";       cout < < "2 - прямоугольник \n";       cin > > n;       cout < < "площадь или периметр \n";       cout < < "1 - площадь \n";       cout < < "2 - периметр \n";       cin > > k;       if (n == 1) {               if (k == 1) {                       cout < < "введите длину основания: ";                       cin > > b;                       cout < < "введите высоту: ";                       cin > > h;                       cout < < "s = " < < b * h * 0.5 < < '\n';               }               if (k == 2) {                       cout < < "введите 3 стороны: " < < '\n' < < "a: ";                       cin > > a;                       cout < < '\n';                       cout < < "b: ";                       cin > > b;                       cout < < "/nc: ";                       cin > > c;                       cout < < "p = " < < a + b + c < < '\n';               }       }       if (n == 2) {               if (k == 1) {                       cout < < "введите длину: ";                       cin > > a;                       cout < < "введите ширину: ";                       cin > > b;                       cout < < "s = " < < a * b < < '\n';               }               if (k == 2) {                         cout < < "введите длину";                       cin > > a;                       cout < < "введите ширину: ";                       cin > > b;                       cout < < "p = " < < 2 * (a + b) < < '\n';               }       } }

1. program suma; var a, b, sum, i: integer; begin   read(a);   read(b);   for i: =a to b do sum: =sum+i;   write(sum); end. 2. program multip; var a, b, m, i: integer; begin   m: =1;   read(a);   read(b);   for i: =a to b do m: =m*i;   write(m); end. 3. program suma2; var a: array [1..5] of integer;       i, sum: integer; begin   for i: =1 to 5 do read(a[i]);   for i: =1 to 5 do       sum: =sum + a[i] * a[i];   write(sum); end. 4. program cnt_nopos; var a: array [1..5] of integer;       i, cnt: integer; begin   for i: =1 to 5 do read(a[i]);   for i: =1 to 5 do       if a[i] < 0 then inc(cnt);   write(cnt); end. 5. var a: array [1..5] of integer;       i, max: integer; begin   for i: =1 to 5 do read(a[i]);   max: =a[1];   for i: =1 to 5 do       if a[i] > max then           max: =a[i];             write(max); end.