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

Question

Валеша

18 июля, 15:20

+2

Ответы (2)

Знаете ответ?

Поляна · Answer 1

Program Zadacha;

var

a, b, i : integer;

begin

Read (a, b) ;

if b>0 then

for i:=1 to b do

Write (i, ' ') ;

end.

Митрюха · Answer 2

var

a, b, i : integer;

begin

read (a, b) ;

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

end.