Дана непустая последовательность слов из строчных латинских букв; между соседними словами – запятая, за последним словом – точка. напечатать все буквы, которые входят в наибольшее количество слов этой последовательности. писать на pascal.

Var
 a : array['a'..'z'] of integer;
 t : array['a'..'z'] of boolean;
 m : integer;
 c : char;
begin
 m := 0;
 for c := 'a' to 'z' do
   a[c] := 0;
 repeat
   for c := 'a' to 'z' do
     t[c] := false;
   read(c);
   while (c <> ',') and (c <> '.') do
     begin
     if not t[c] then
       begin
       a[c] := a[c] + 1;
       if a[c] > m then
         m := a[c];
       t[c] := true
       end;
     read(c)
     end
 until c = '.';
 for c := 'a' to 'z' do
   if a[c] = m then
     write(c,' ')
end.

ответ:

Задание 1.

int a,b;

scanf("%i", &a);

scanf("%i", &b);

if (a<b)

  for(int i=a; i<=b; i++)

     printf("x = ", x , ";    y = ", ((x3+1)/(x-3)+x) );

Задание 2.

int sum;

sum = 0;

for(int i=1; i<=115; i+=6)

  sum+=i;

printf(sum);

Задание 3.

int a,b, n;

n = 0;

scanf("%i", &a);

scanf("%i", &b);

if (a<b)

  for(int i=a; i<=b; i++)

     if (i%11 == 0) n++;

if (a>b)

  for(int i=b; i<=a; i++)

     if (i%11 == 0) n++;

printf(n);

На C ничего никогда не писал, поэтому может чё-то не так, но по идее как-то так...

ответ:

Задание 1.

int a,b;

scanf("%i", &a);

scanf("%i", &b);

if (a<b)

  for(int i=a; i<=b; i++)

     printf("x = ", x , ";    y = ", ((x3+1)/(x-3)+x) );

Задание 2.

int sum;

sum = 0;

for(int i=1; i<=115; i+=6)

  sum+=i;

printf(sum);

Задание 3.

int a,b, n;

n = 0;

scanf("%i", &a);

scanf("%i", &b);

if (a<b)

  for(int i=a; i<=b; i++)

     if (i%11 == 0) n++;

if (a>b)

  for(int i=b; i<=a; i++)

     if (i%11 == 0) n++;

printf(n);

На C ничего никогда не писал, поэтому может чё-то не так, но по идее как-то так...