Решить по abc pascal даны стороны прямоугольника а и b. найдите периметр и полщадь s=a*b p=2*(a+b) a=6.90 b=5.80 буду !

Var a,b,p,s: real; begin     writeln('введите значение а = ');     read(a);     writeln('введите значение b = ');     read(b);     s: =a*b;     p: =2*(a+b);     writeln('площадь = ',s);     writeln('периметр = ', p); end.

Cls for i = 101 to 999 step 2     p = 1: j = 3     do while (j < = sqr(i)) and (p < > 0)           p = ((i mod j) < > 0)           j = j + 2     loop     if p < > 0 then print i; next i end результат выполнения программы:   101  103  107  109  113  127  131  137  139  149  151  157  163  167  173  179   181  191  193  197  199  211  223  227  229  233  239  241  251  257  263  269   271  277  281  283  293  307  311  313  317  331  337  347  349  353  359  367   373  379  383  389  397  401  409  419  421  431  433  439  443  449  457  461   463  467  479  487  491  499  503  509  521  523  541  547  557  563  569  571   577  587  593  599  601  607  613  617  619  631  641  643  647  653  659  661   673  677  683  691  701  709  719  727  733  739  743  751  757  761  769  773   787  797  809  811  821  823  827  829  839  853  857  859  863  877  881  883   887  907  911  919  929  937  941  947  953  967  971  977  983  991  997

Унас есть скорость передачи в кбит/с и мбит/с. нужно определиться, в каких отношениях находятся кбит/с и бит/с, потому что тут есть две трактовки. первая предполагает, что кбит/с - это системная единица си и тогда 1кбит/с = 1000 бит/с. вторая - что кбит/с, как и кбайт/с - единица внесистемная, и тогда 1 кбит/с = 1024 бит/с. правильным является первый вариант при написании по стандарту кбит/с, а во втором варианте надо писать кбит/с. именно заглавная буква к (и м в мегабитах, мегабайтах) указывают на внесистемность единицы. однако, 128 кбит/с кратно степени 2, а не 10, что показывает мнение составителя о том, что 1 кбит = 1024 бита. условно примем эту версию. 1. определяем количество фрагментов 350 мбайт / 10 мбайт = 35 фрагментов 2. время отправки запроса на сервер 32 кбайт / 128 кбит/с = 32 кбайт / (128/8 кбайт/с) = 2 с 3. время приема одного фрагмента 10 мбайт / 4 мбит/с = 10 мбайт / (4/8 мбайт/с) = 20 с 4. время отправки подтверждения 16 кбайт / 128 кбит/с = 16 кбайт / (128/8 кбайт/с)= 1с 5. время на каждый пакет, кроме последнего 2+20+1=23 с 6. общее время на все пакеты, кроме последнего 23 х 34 = 782 с 7. время на последний пакет (подтверждение можно не передавать) 2+20 = 22 с 8. общее время 782+22 = 804 с или 13 минут и 24 секунды