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

Question

Никодим

17 апреля, 00:59

+1

Ответы (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.