1) составьте программу, которая определяет, сколько слагаемых должно быть в сумме 1+2+3+4+ сумма была больше оператор

var i,sum: integer;

begin

while sum< 20 do begin

i: =i+1;

sum: =sum+i;

end;

writeln(i);

end.

var a: array[1..100] of integer;

i,s: integer;

begin

  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;

 

      if a[i]> =0 then s: = s+a[i];   end;

 

  for i: = 1 to n do begin

      if a[i]< 0 then a[i]: =s;

      write(a[i]: 4);       if i mod 10=0 then writeln;

  end;

 

end.

А-я  (33 символа),  символы    алфавита 2)  36 согласных звуков: [б], [б'], [в], [в'], [г], [г'], [д], [д'], [ж], [з], [з'], [й'], [к], [к'], [л], [л'], [м], [м'], [н], [н'], [п], [п'], [р], [р'], [с], [с'], [т], [т'], [ф], [ф'], [х], [х'], [ц], [ч'], [ш], [щ']  6 гласных звуков: [а], [у], [о], [ы], [и],  [э],  звуковые  фонемы    языка 3)  a-z (26 символов),  символы  латинского  алфавита 4)  0123456789,  символы  арабской записи  цифр 5)  аденин (а), гуанин (g), цитозин (с), тимин  (t),  азотистые  основания участвующие  в  формировании  дизоксирибонуклеиновой  кислоты 6)  01,  сигнал низкого  и  высокого  напряжения  используемый  для  передачи  данных