Даны два целых числа A и B (A < B). Найти все целые числа, располо-
женные между данными числами (не включая сами эти числа), в порядке
их убывания, а также количество N этих чисел.???
Ответы
Ответ дал:
0
Ответ:
program AandB;
var
A, B, N, i: Integer;
begin
Write ('Введите A и B (A < B)');
ReadLn (A, B);
WriteLn;
N := 0;
if A < B then begin
for i := B - 1 downto A + 1 do begin
Write (i, ' ');
Inc (N);
end;
WriteLn;
WriteLn ('N = ', N);
end else
WriteLn ('Условие не выполнено.');
ReadLn;
end.
Вас заинтересует
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад