Сколько потребуется времени, чтобы «выкачать» документ объемом 1 mbyte из интернета, используя модем (скорость соединения – 50 kbit/с)

1mbyte = 2^20*8   bit 50 kbit/c = 50*2^10 bit/c (2^20 * 8) : (50*2^10) =1024*8: 50=1024*4: 25=164 cek

Var   k: longint;   d,n: integer; begin   write('введите натуральное число (1-2147483647): ');   read(k);   n: =0;   while k> 0 do begin       d: =k mod 10;       k: =k div 10;       if (d mod 2)< > 0 then inc(n)   end;   writeln('количество нечетных цифр в числе равно ',n) end. тестовое решение: введите натуральное число (1-2147483647): 35632105 количество нечетных цифр в числе равно 5

{даны вещественные числа a,b,c. определите, существует ли треугольник со сторонами a,b,c? } var a,b,c: real; begin   writeln('введите стороны треугольника');   readln(a, b, c);   if (a+b> c) and (a+c> b) and (b+c> a) then  writeln('треугольник существует')   else   writeln('треугольник не существует'); end. { дано целое положительное число. определите, оканчивается ли оно цифрой 7} var   n: integer; begin   writeln('введите число');   readln(n);   if n mod 10= 7 then       writeln('оканчивается  цифрой 7')     else      writeln( 'не оканчивается цифрой 7'); end.