Составить программу, вычисляющую сумму чисел от 1 до 256, кратных 13.

Программа на паскале program xxx; var i,s : integer; begin s: =0; for i: =1 to n do   if i mod 13 = 0 then s : = s + i; write('сумма чисел кратных 13 =', s) end.

Внедавнем прошлом длина имени файла или папки была ограничена восемью символами с расширением не более трех символов.  это правило было известно как конвенция 8.3. иногда ваш компьютер обращается с длинными именами файлов не так, как с именами, соответствующими стандарту 8.3. в зависимости от операционной системы, если в названии файла встречаются пробелы, вы должны заключить название в кавычки, чтобы оно читалось как единое имя. если папка или файл имеют длинное имя, которое необходимо сократить до восьми знаков, название папки представляется шестью первыми буквами названия и номером, например, progra1 вместо program files. примеры переименования папок, названия которых начинаются одинаково, в 2.2.

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017

// Внимание! Если программа не работает, обновите версию!

begin

 Writeln('*** Исходный массив ***');

 var z:=MatrRandom(4,6,10,80);

 z.Println(4); Writeln(4*z.ColCount*'-');

 var t:=z.ElementsWithIndexes.MaxBy(x->x[2]);

 Writeln('Максимальный элемент z[',t[0]+1,',',t[1]+1,']=',t[2])

end.

Пример

*** Исходный массив ***

 47  18  64  34  29  42

 68  55  80  68  44  34

 15  51  43  75  32  52

 21  38  36  48  58  69

Максимальный элемент z[2,3]=80

Объяснение: