Дано натуральное число n. найти сумму первой и последней цифры этого числа. верно ли что данная сумма больше 10? дано натуральное число n. переставить последнюю и первую цифры этого числа. верно ли, что после перестановки число стало четным? дано натурa.льное число n. найти произведение нечетных цифр числа. верно ли, что произведение является трехзначным числом? дано натуральное число n. верно ли, что в записи числа три раза встречается цифра 5? найти все делители натурального числа n. верно ли, что их количество , есть четное число? решите в pascal

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin   var n: =readinteger('n=');   var s: =n mod 10;   n: =n div 10;   var d: integer;   while n> 0 do (d,n): =(n mod 10,n div 10);   s+=d;   writeln('сумма ',s);   if s> 10 then writeln('верно') else writeln('неверно') end. №2 begin   var s: =readinteger('n=').tostring;   var n: =s.length;   (s[1],s[n]): =(s[n],s[1]);   s.println;   if s[n].todigit.iseven then writeln('верно') else writeln('неверно') end. №3 begin   var n: =readinteger('n=');   var p: =1;   while n> 0 do begin       var d: =n mod 10;       if d.isodd then p*=d;       n: =n div 10       end;   writeln('произведение ',p);   if p.inrange(100,999) then writeln('верно') else writeln('неверно') end. №4 begin   var n: =readinteger('n=');   var k: =0;   while n> 0 do begin       if n mod 10=5 then k+=1;       n: =n div 10       end;   if k=3 then writeln('верно') else writeln('неверно') end. №5 begin   var n: =readinteger('n=');   var k: =1;   writeln('делители: ');   for var i: =1 to n div 2 do       if n mod i=0 then begin           print(i);           k+=1           end;   writeln(n);   if k.iseven then writeln('верно') else writeln('неверно') end.

файл объемом 500 кбайт

общий объем информации в битах    

ooи =500 кбайт =512000 байт =4096000 бит

скорость передачи v=128000 бит/с

время передачи t= оои / v =4096000 бит /  128000 бит/с = 32 c

ответ 32 секунды