Написать в программе паскаль программу: вывести сначала положительные числа из отрезка [a; b], а потом отрицательные числа из отрезка [a; b] и количество положительных и отрицательных чисел из отрезка [a; b]

186

476

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

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

Барбоси

Информатика

4,4(72 оценок)

Uses crt; const q=10000; var a: array [1..q] of integer; x,k,p,m,n,o: integer; begin write('a='); readln(m); write('b='); readln(n); a[1]: =m; for x: =2 to (n-m+1) do a[x]: =a[x-1]+1; write('положительные: '); for x: =1 to (n-m+1) do if a[x]> 0 then begin inc(p); write(a[x],' '); end; writeln; write('отрицательные: '); for x: =1 to (n-m+1) do if a[x]< 0 then begin inc(o); write(a[x],' '); end; writeln; writeln('положительных чисел: ', p); writeln('отрицательных чисел: ',o); end.

Ксю11111111147

Информатика

4,8(30 оценок)

Var a,b,c,k: integer; begin read(a,b); if (a< 0) and (b> 0) then begin for k: =1 to b do write (k,' '); for k: =1 to a do write (-k, ' '); write(-a,' ',b); end else if (a> 0) and (b> 0) then begin for k: = a to b do write (k,' '); write (b-a); end else b: =-1*b; a: =-1*a; for k: = b to a do write (k,' '); write (b-a); end.