Запиши развёрнутую запись числа 0,563 для дробной части числа.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

для этого модема нужно: источник питания: через внешний адаптер питания переменного тока 9 в /1a параметры блока питания robiton dn1000: блок питания 1000ма, нестабилизированный выходное напряжение: 3,0 / 4,5 / 6,0 / 7,5 / 9,0 / 12,0 в 12,0 вполне подойдет. даже не нужно заморачиваться правильным подключением +/- т.к. модем питается переменкой. я бы порекомендовал сначала включить бп на 7,5 вольт. если модем будет так работать, то так и оставить. если не работает, переключить на 9 вольт. только ни в коем случае не переключайте выходное напряжение бп, если он подключен к модему! в момент переключения, напряжение на выходе бп может сильно прыгнуть!

var a,c,l,w1,w2,w3 : longint;

begin

  readln(a,c);

  w1: =0;

  w2: =0;

  w3: =0;

  l: =a mod 10;

  while a> 0 do

  begin

      if a mod 10=c then w1: =w1+1;

        if a mod 10=l then w2: =w2+1;

        if a mod 2=0 then w3: =w3+1;

        a: =a div 10;

  end;

  writeln(w1,' ',w2,' ',w3);

end.