На паскаль abc 1составте программу которая удаляет первое слово текста 2)составте программу которая вставляет одно слово в текст после первого пробела

1) var s, s1: string; c: char; begin repeat begin read (c); s1: =s1+c; end until c=' '; read (s); write (s); end. 2)var s, s1, s2: string; c: char; begin read (s); while (c< > ' ') do begin read (c); s1: =s1+c; end; read (s2); write (s1, ' ', s, ' ', s2); end. где первым вводится слово, которое нужно вставить

Основным достоинством растровой графики принято считать то, что она обеспечивает более реалистичную передачу градаций цветов и полутонов, а также более высокую детализацию изображения, поэтому графические файлы в этом формате являются оптимальным средством представления тоновых изображений, таких как отсканированные фотографии. Еще один плюс растровой графики состоит в том, что растровое изображение проще вывести на принтер, который в своей работе использует принцип «точка на каждый элемент картинки».

Объяснение:

Var n1: array[1..10] of integer;       n2: array[1..15] of integer;       r1: array[1..10] of integer;       r2: array[1..15] of integer;       min1, min2, max1, max2, i: integer;       r1min, r2min, r1max, r2max: integer; begin min1: =500; min2: =500; max1: =0; max2: =0; randomize; for i: =1 to 10 do n1[i]: =random(900)+100; for i: =1 to 15 do n2[i]: =random(900)+100; for i: =1 to 10 do r1[i]: =random(500); for i: =1 to 15 do r2[i]: =random(500); for i: =1 to 10 do   if r1[i]< min1 then   begin   min1: =r1[i];   r1min: =i;   end else     begin     if r1[i]> max1 then       begin       max1: =r1[i];       r1max: =i;       end;     end; for i: =1 to 15 do   if r2[i]< min2 then   begin   min2: =r2[i];   r2min: =i;   end else     begin     if r2[i]> max2 then       begin       max2: =r2[i];       r2max: =i;       end;     end; writeln('v 1 taxoparke min ', n1[r1min]); writeln('vo 2 taxoparke min ', n2[r2min]); writeln('v 1 taxoparke max ', n1[r1max]); writeln('vo 2 taxoparke max ', n2[r2max]); write('n1 '); for i: =1 to 10 do write(n1[i], ' '); writeln; write('r1 '); for i: =1 to 10 do write(r1[i]: 3, ' '); writeln; write('n2 '); for i: =1 to 15 do write(n2[i], ' '); writeln; write('r1 '); for i: =1 to 15 do write(n1[i]: 3, ' '); writeln; end.