Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через данное соединение заняла 17 секунд. Определи размер файла в Кбайт. ответ округлите до целых.
Program p1; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); For i:=0 to 1 do Begin Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; End; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
Это реализовано с цикла while:
Program p2; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); While i<>2 do Begin Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; i:=i+1; End; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
Это реализовано с цикла repeat:
Program p3; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); repeat Begin i:=i+1; Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; End; until i=2; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
Program p1; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); For i:=0 to 1 do Begin Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; End; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
Это реализовано с цикла while:
Program p2; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); While i<>2 do Begin Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; i:=i+1; End; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
Это реализовано с цикла repeat:
Program p3; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); repeat Begin i:=i+1; Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; End; until i=2; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
v=i/t
v=256000
t=17 сек
i=(v*t)/2^13
i=(256000*17)/2^13
i=532 Кбайт
ответ: 532
Объяснение: