Даны целые числа а и в (а<в) написать программу вычисления всех целых чисел от а до в включительно

Question

Информатика

Евлампий

9 июня, 14:34

Даны целые числа а и в (а<в) написать программу вычисления всех целых чисел от а до в включительно

+5

Ответы (2)

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

Василиск · Answer 1

Var

a, b, i: integer;

begin

writeln ('введите число a') ;

readln (a) ;

writeln ('введите число b') ;

readln (b) ;

if (a > b) then begin

i : = b;

b : = a;

a : = i;

end;

for i : = a to b do

writeln ('число в промежутке = = >', i) ;

end.

Ипатий · Answer 2

Var a, b, c:integer;

begin

writeln ('введите число a') ;

readln (a) ;

writeln ('введите число b') ;

readln (b) ;

for a:=a to b do begin

writeln ('число в промежутке = = >', a) ;

end;

if a>b then

for b:=b to a do begin

writeln ('число в промежутке = = >', b) ;

end;

end.