Дано трёхзначное число. найти в нём максимальную цифру. 20 паскаль

Var a,k,b,c: longint; begin read (a); k: =a div 100; b: =a div 10 mod 10; c: =a mod 10; if ((k> b) and (k> c)) then writeln (k) else if ((b> k) and (b> c)) then writeln (b) else if ((c> b) and (c> k)) then writeln (c); end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

 

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1