Предмет: Информатика,
автор: leramiloradowa
Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами ( не включая сами эти числа), в порядке их убывания, а также количество N этих чисел.
Ответы
Автор ответа:
0
var a,b,i,k :integer;
begin
read(a,b);
k:=0;
for i:= b -1 downto (a-1) do
begin k:=k+1;
write (i,' ');
end;
writeln('Количество этих чисел = ', k);
end.
begin
read(a,b);
k:=0;
for i:= b -1 downto (a-1) do
begin k:=k+1;
write (i,' ');
end;
writeln('Количество этих чисел = ', k);
end.
Интересные вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Музыка,
автор: desor09
Предмет: Математика,
автор: melsonpro
Предмет: Обществознание,
автор: muralevalera