Var i,j,n,s: integer; begin readln(n); for i: =1 to n do begin s: =0; for j: =1 to i do s: =s+2*j-1; writeln(i,'*',i,'=',s); end; readln; end. составьте блок схему на эту . паскаль
Вариант решения №1: 1)8 МБайт = 8192 КБайт 2) 8192 Кбайт / 4096 Кбайт = 2 - это отношение первого файла,которое мы передавали к второму. Тем самым решение получается из этого таким образом:
Первый файл больше второго в 2 раза. При неизменяемой скорости, второй файл соответственно будет передан в 2 раза быстрее -> 128/2 = 64 сек.
Вариант решения №2: 1) 8 МБайт = 8192 КБайт 2) найдём скорость соединения:
8192 Кбайт / 128 сек = 64 Кб/сек.
3) узнаем время передачи второго файла
4096 Кбайт / 64 Кб/сек = 64 сек.
ОТВЕТ : 64 сек.
Отмечу,что при решении похожих задач некоторые при переводе скорости и других местах вместо 1024 считают как 1000. Из-а этого в решении могут появиться такие ответы (для данной задачи) как 65,536 сек.
Обращайте внимание на то,с какой буквы написана величина! КБ=КБайт = 1024 байт. Если первая заглавная,то считается 2 в степени, то есть как принято в информатике. кБайт = 1000 байт. Если с маленькой,то приставка кило считается по системе СИ, как в физике и является 10^3.
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018 // Внимание! Если программа не работает, обновите версию!
№1
begin var n:=15; var a:=ArrRandom(n,2,5); a.Println; var k2:=a.Where(t->t=2).Count; Writeln('Не сдали экзамен ',k2,' чел, что составляет ',k2/n*100:0:1,'%') end.
Пример 4 3 3 4 5 4 3 4 3 5 4 5 2 5 2 Не сдали экзамен 2 чел, что составляет 13.3%
№2
begin ArrRandom(7,15,40).Println.OrderBy(t->t).Println end.
Пример 34 21 24 29 28 22 25 21 22 24 25 28 29 34
P.S. А объяснять тут нечего - все видно из текста программы.
