Есть сомнения, что все единицы измерения указаны точно.
Но если все верно, тогда:
1 К/бит = 1000 бит
1 Байт = 8 бит
1 Кбайт = 1024 Байт
32 Кбит/с * 15 с = 480 Кбит *1000 = 480000 бит / 8 = 60000 Байт - размер текстового файла
8 байт/символ * 48 симв/страницу * х страниц = 60000 байт
х = 60000/48/8 = 156,25 страниц содержал переданный текст
Var x,y: integer;
begin write('Введите два целых числа, разделяя их пробелом: ');
readln(x,y);
if x>y then
writeln('Сумма ',x,' и ',y,' равна ',x+y)
else
writeln('Произведение ',x,' и ',y,' равно ',x*y);
writeln('Задача решена');
<span>end.</span>
Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>