Какая формула расчёта НДС 20% в ворде в данном случае? И вместе с НДС какая формула?

188

450

Посмотреть ответы 1

Ответы на вопрос:

voprooos

Информатика

4,7(20 оценок)

Uses crt; const n=15; var a: array[1..n] of integer; i,j,k,t: integer; found: boolean; begin clrscr; randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(90)+1; write(a[i],' ') end; writeln; i: =n; found: =false; repeat found: =(a[i] mod 2=0); if (not found) then dec(i) until found or (i=0); if found then begin for i: =i to n-1 do a[i]: =a[i+1]; writeln('результирующий массив: '); for i: =1 to n-1 do write(a[i],' ') end; readkey end. тестовое решение: исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47