1)с клавиатуры одной строкой вводят имя и фамилию.составьте программу, которая выводит сначала фамилию, а потом имястонько роман) 2)составьте программу, которая в строке"рэки, горы и " удаляет слова"горы" нодо, вопрос жизни и

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

 

 

прости что не решила  

 

N- количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности в начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max в конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число! program z1; var n, i, x, max: integer; beginmax : = 0; readln(n); for i : = 1 to n dobegin    read(x);     if (x mod 2 = 0) and (x > max) then max : = x; end; if max > 0 then writeln(max) else writeln ('не таких чисел'); end.

Uses crt; const     n = 15;     m = 10; var     a: array[1..n,1..m] of real;     i,j: integer;     s3,s7: real; begin randomize; clrscr; writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               a[i,j]: =random*13;               write(a[i,j]: 6: 3,'  ')               end;       writeln       end; s3: =0; s7: =0; for j: = 1 to m do       begin       s3: =s3+a[3,j];       s7: =s7+a[7,j];       end; writeln('s3 = ',s3: 0: 3); writeln('s7 = ',s7: 0: 3); if s3 > s7 then writeln('s3 > s7') else if s3 < s7 then writeln('s3 < s7')         else writeln('s3 = s7'); readln end.