Вывести все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел

Категория: Delphi/Pascal

2011-12-23 16:19:19

Даны два целых числа A и B.

code: #pascal

program For2;
var
A,B:integer;
temp:integer;
i:integer;
begin
temp:=0;
repeat
writeln('Введите A и B:');
readln(A,B);
until (A);
for i:=A to B do
begin
 
temp:=temp+1;
write(i,' ');
 
end;
writeln('количество чисел:',temp);
end.

автор: Zakirov Nail a.k.a. Zevsnet

Поделиться:

Sample Code

категории

Вывести все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел

Похожие статьи: