Вывести на экран только положительные целые числа из диапазона от А до В (А<=B) (сделать в паскале)

Question

Никула

22 марта, 04:38

+3

Ответы (2)

Знаете ответ на вопрос?

Васюра · Answer 1

var

a, b, i : integer;

begin

read (a, b) ;

for i : = a to b do if i > 0 then writeln (i) ;

end.

Тонюша · Answer 2

Program Zadacha;

var

a, b, i : integer;

begin

Read (a, b) ;

if b>0 then

for i:=1 to b do

Write (i, ' ') ;

end.