Найти сумму 15 слагаемых вида (i-1)/2 (язык pascal)

Var i: integer; s: real; begin for i: =1 to 15 do s: =s+((i-1)/2); writeln('resultat: ', s) end.

program strokabc;  

uses crt; var d,n,i,k: integer;

        s: string; begin      clrscr;       writeln('введите n: ');         readln(n);         repeat            clrscr;             readln(s);       until length(s)=n;

      d: = length(s);       for i: =1 to d do      if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k: =k+1;           writeln('строка abc входит в данную строку ',k,' раз');

        readkey;   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.