Даны два натуральных числа. Выяснить, в каком из них больше цифр. (Оп- ределить функцию для расчета количества цифр натурального числа.) ЯЗЫК: PASKAL ABC
4 задача: 1) 32*60*10=19200 Кбит в 10 мин 2) 19200:8=2400 Кбайт в 10 мин
2 задача: Переводом кбайты в биты: 9•1024•8=73728 73728/36=2048(бит/сек) скорость соединения 2048+1024=3072(бит/сек) - скорость нового соединения 73728/3072=24 секунды
3 задача: 256 бит в секунду = 256/8 байт в секунду = 32 байт в секунду файл в 2 Кибайта передается за 2048/32 = 64 секунды. другое соединение - 2048 бит/с = 256 байт/с за 64 с передастся 256 * 64 = 16384 байта или 16 Килобайт
var a: integer;
var t: real;
begin
readln(a);
t:= (a div 10) * (a mod 10) / 2;
writeln(t)
end.
var a: integer;
begin
readln(a);
writeln((a div 10) - (a mod 10))
end.
var a: integer;
begin
readln(a);
writeln((a div 1000), " килограмм ", (a mod 1000), " грамм")
end.
var a: integer;
begin
readln(a);
writeln(a div 10000)
end.
var a, b, c, d: integer;
begin
readln(a);
d:= a div 38400;
a:= a mod 38400;
c:= a div 3840;
a:= a mod 3840;
b:= a div 96;
a:= a mod 96;
writeln(d, " берковцев ", c, " пудов ", b, " фунтов ", a, " золотников")
end.