Ввести число, обозначающее количество секунд. Вывести то же самое время в минутах и секундах.
Пример:
Введите число секунд: 175
ответ: 2 мин. 55 с.

Program z1;

var a,b,c:integer;

begin

writeln('Введите кол-во секунд: ');

read(a);

b:=a div 60;

c:=a mod 60;

write (a, ' секунд -  это ', b, ' минут(ы) ', c, ' секунд(ы).')

end.

Объяснение:

56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )

посчитаем кол-во данных, которые передали за 5 секунд:

56000 бит/с * 5 с = 280000 бит

в обычной кодировке один символ занимает один байт (то есть 8 бит)

посчитаем количество переданных символов текста:

280000 бит / 8 = 35000 символов

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.