2) даны числа от 5 до 78. заменить все числа кратных 11 на квадрат этого числа. 3) даны числа от 1 до n. найти сумму чисел кратных 5, но не кратных 7.

Program d1kpxx6; uses crt; var mas: array [1..78] of integer; i,n,sum: integer; begin for i: =5 to 78 do begin mas[i]: =i; write(mas[i],' '); end; for i: =5 to 78 do begin if (mas[i] mod 11=0) then begin writeln(mas[i]); mas[i]: =mas[i]*mas[i]; end; write(mas[i],' '); end; end. program d1kpxx7; uses crt; vari,n,sum: integer; beginread(n); for i: =1 to n doif (i mod 5=0) and (i mod 7< > 0) thensum: =sum+i; writeln(sum); end.

Program test; var   a: array[1..100] of integer;   i,n: integer; begin   randomize;   for i: =1 to 99 do begin       n: =random(1,30);       if i mod 3 = 0 then begin           a[i]: =n;           a[i-1]: =n;           a[i-2]: =n;                 end;         end;   for i: =1 to 99 do writeln(a[i]); end.

Программа на паскале: var   number, firstdigit, lastdigit,  maxdigit: longint;   begin   read(number);   lastdigit : = number mod 10;   write('нечетные цифры числа: ');   while number > 9 do   begin       if number mod 2 = 1 then write(number mod 10, ' ');       if number mod 10 > maxdigit then maxdigit : = number mod 10;       number : = number div 10;   end;   if number mod 2 = 1 then write(number);     if number mod 10 > maxdigit then maxdigit : = number mod 10;   firstdigit : = number;   writeln;   writeln('первая цифра числа - ', firstdigit);   writeln('последняя цифра числа - ', lastdigit);   writeln('наибольшая цифра числа - ', maxdigit); end.