Составить программу на языке программирования паскаль, которая бы содержала бы как минимум три ветвления (if then else и один цикл (for i : = 1 to do

program yourname; uses crt; var com: string; i: integer; beginwriteln('задайте значените программы.'); writeln('для того чтобы программа посчитала от 1 до 5 пропишите команду   "go1".'); writeln('для того чтобы программа посчитала от 5 до 1 пропишите команду  "go2".'); writeln('для того чтобы сказать программе - пропишите команду "go3".'); readln(com); if (com = 'go1') then beginwriteln(программа считает от 1 до 5'); for i: =1 to 5 do writeln(i) endelse if (com = 'go2') then beginwriteln('программа считает от 5 до 1'); for i: =5 downto 1 do writeln(i) endelse if (com = 'go3') then beginwriteln('программа: всегда рада вам .'); endelse begin writeln('данной команды не существует либо вы ввели команду вместе с ковычками.'); writeln('! перезапустите программу.') end

 

end.

1. program enot; var a: array[1..8] of real;   i: integer; begin for i: = 1 to 8 do begin a[i]: =random(41)-20; writeln(a[i]: 8: 3); end; end.2.  program fg; var a: array [1..13] of integer; i: integer; beginwriteln('первоночальный массив: '); for i: = 1 to 13 dobegina[i]: =random(13)+5; writeln(a[i], ' '); end; writeln('получившийся   массив: '); for i: = 13 downto 1 dowriteln(a[i],' '); end.3.  program enot; var a: array [1..7] of integer; i: integer; beginfor i: = 1 to 7 dobegina[i]: =random(25)+104; writeln(a[i]); end; end.

1) в одном байте 8 бит.1800 байт переводим в биты = 1800*8 = 14400 бит скорость 14400 бит/c делим 14400 на 14400 = 1с передадим за 1 сек. 2)1.5мбайта переводим в байты = в 1мбайте 1024кбайта в 1кбайте 1024байта получаем  1.5мбайта=1536кбайт=1572864байта умножаем на 8(перевод в биты)=12582912бит канал 12800 бит/c делим получаем 983,04 секунды на передачу файла 3) 7200кбайт умножаем на 8 получаем 57600 кбит делим на скорость получаем 300сек. во втором может быть ошибка, но не пойму в чем. щас еще