1)сообщение о том,что друг едет в 16 вагоне несет 8 бита информации.сколько ванонов у поезда? 2)переведите 2.5 кбайт в байты и биты
261
341
Ответы на вопрос:
Uses crt; const n=6; var i,k: byte; p: longint; a: array[1..n] of shortint; begin randomize; k: =0; p: =1; clrscr; for i: =1 to n do begin a[i]: =random(51)-25; { [-25..25] } write(a[i],' '); if a[i] mod 5=0 then begin k: =k+1; p: =p*a[i] end end; writeln; writeln('k=',k,', p=',p); readkey end.
Популярно: Информатика
-
hopoloi8916.04.2021 12:52
-
arsen99201502.12.2021 12:57
-
ketikosti19.03.2020 12:48
-
karikovt27.01.2021 17:07
-
mmakkarova31.10.2020 17:25
-
Lisichka23030329.07.2022 12:08
-
banilchik2606.09.2021 00:19
-
Elena40700820.06.2021 20:04
-
elizaveta425601.04.2021 01:07
-
kallor1203.02.2021 06:40