Запишите алгоритм вычисление суммы
1+2+3+…+n.

самотестирование компьютера

                |

первый этап - загрузка специальной программы в микросхеме bios для поиска загрузчика операционной системы

                |

второй этап - программа загрузчик загружается в оперативную память для передачи работой комп.

                |

программа ищет файлы операционной системы и загружает их в оперативную память в качестве программных модулей

при включении комп. ос загружается в оп раньше остальных программ

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

бег - бог - бок - бак - мак - маг -шаг

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.