Vopusbonb
7 год назад
Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.
Желательно всю программу)
Заранее огромное спасибо)
ОТВЕТЫ
Kuannak
Jul 16, 2019
Var a,b,n:integer;
begin
read(a,b);
write(a);
repeat
a:=a+1;
write(a);
n:=n+1;
until a=b;
writeln;
writeln(n);
end.
begin
read(a,b);
write(a);
repeat
a:=a+1;
write(a);
n:=n+1;
until a=b;
writeln;
writeln(n);
end.
81
Смежные вопросы:
