Написать в программе Паскаль программу:
5-9 класс
|
Вывести сначала положительные числа из отрезка [a;b], а потом отрицательные числа из отрезка [a;b] и количество положительных и отрицательных чисел из отрезка [a;b]
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.
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
Вопрос, какие отрезки ? Записать их в виде рандома чисел или сделать массив чисел?!
я думаю массив чисел, как нам объясняли, например, нужно написать n- количество чисел, пусть будет 7, а затем ввести этих 7 различных чисел по порядку и дальше по заданию, желательно решить через For или While или Repeat
Хорошо, что-то придумаем
Другие вопросы из категории
Читайте также
данных и доказать правильность ее работы
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль