1. миша шифрует слова, записывая вместо каждой буквы её номер в алфавите (без пробелов только одна шифровка расшифровывается единственным образом.) 1 слово - 2016, 2 слово - 2345, 3 слово - 4523, 4 слово - 6120 *

может быть  

в -26 букв,если учитывать бкз "нулевой буквы",то 4 т.к. 1ая-6 2ая токо 1,а 3ья 20 

1) var       i, n, m: integer; begin       readln(n);       for i : = 1 to n do               m : = m + i;       writeln('сумма всех натуральных чисел не превышающих ', n, ' - ', m); end. 2) var       x, n, i, p: integer; begin       write('число: ');       readln(x);       write('степень : > ');       readln(n);       p : = 1;       for i : = 1 to n do               p : = p * x;       writeln('результат: > ', p); end.

Dim a(6) randomize timer for i = 1 to 6     a(i) = int(rnd * 20) - 10     if a(i) > 0 then s = s + 1     print a(i); " "; next i print print "s="; sновый  паскаль авсvar    a: array[1..6]of integer;     i,s: integer; begin  for i: =1 to 6 do    begin    a[i]: =random(-10,10);     if a[i]> 0 then s: =s+1;     write(a[i],' ')    end; writeln; writeln('количество положительных: ',s)end.старый  паскаль авс var     a: array[1..6]of integer;     i,s: integer; begin   for i: =1 to 6 do     begin     a[i]: =random(20)-10;     if a[i]> 0 then s: =s+1;     write(a[i],' ')     end; writeln; writeln('количество положительных: ',s) end.