Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

var a,b,i,n:integer;
begin
write('- a ');
readln(a);
write('- b ');
readln(b);
n:=0;
for i:=a to b do
begin
write(i:2);
inc(n);
end;
writeln;
write('- ',n);
readln;
end.

Похожие записи/страницы:

Leave a Comment