Ввести три целых числа и вывести на экран большее из них

язык си(откомпилирован и проверен был в dev-c++)

 

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

 

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

// pascalabc.net 3.0, сборка 1052 const   rus=['а'..'я']; var   s: string;   i,k,t: integer;   c,c1,tc,sc: char;   f: array['а'..'а'] of byte; // 'а' - это для 'ё'   ch: array['а'..'а'] of char; begin   write('введите строку: '); readln(s);   for c: ='а' to 'а' do begin f[c]: =0; ch[c]: =c end;   k: =0;   for i: =1 to length(s) do begin       c: =upcase(s[i]);       if c in rus then begin inc(f[c]); inc(k) end       else           if c='ё' then begin inc(f['а']); inc(k) end;   end;   writeln('количество букв равно ',k);   { сортировка массива со счетчиком количества букв }   for c1: ='а' to pred('а') do   for c: ='а' to pred('а') do       if f[c]< f[succ(c)] then begin           t: =f[c]; tc: =ch[c]; sc: =succ(c);           f[c]: =f[sc]; ch[c]: =ch[sc];           f[sc]: =t; ch[sc]: =tc       end;   writeln('частота встретившихся букв');   c: ='а';   while (c< ='а') and (f[c]> 0) do begin       if ch[c]='а' then ch[c]: ='ё';       writeln(ch[c],' - ',f[c]);       inc(c)   end; end. тестовое решение: введите строку: когда я был парнишкой, носил я брюки клёш количество букв равно 33 частота встретившихся букв к - 4 и - 3 л - 3 о - 3 а - 2 б - 2 н - 2 р - 2 ш - 2 я - 2 г - 1 д - 1 й - 1 п - 1 с - 1 ы - 1 ю - 1 ё - 1

//предполагается что слова разделены пробелами //предполагается что слово - это любой набор символов без пробела var       f: text;       s: string;       i, k: integer; begin       readln(s);       k : = 1;       for i : = 1 to length(s) do               if s[i] = ' ' then k : = k + 1;       assign(f, 'file.csv');       rewrite(f);       writeln(f, k, ',');       close(f);             writeln(k); end.