Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их
5-9 класс
|
убывания, а также количество N этих чисел.
var
A, B, N, i: integer;
begin
N:= 0; //Обнуляем счетчик
writeln('Введите числа A и B');
readln(A, B); //Вводим А и B
if A < B then {Если А < B, то печатаем числа начиная с B и заканчивая A,
иначе наоборот}
for i:= B downto A do
begin
write(i, ' '); //Печатаем i
inc(N); //Увеличиваем счетчик на 1
end
else
for i:= A downto B do
begin
write(i, ' ');
inc(N);
end;
writeln;
writeln('Количество N этих чисел равно: ', N); //Выводим N
end.
Если все правильно, отметь решение как лучшее)
Другие вопросы из категории
зростання кількості мандаринів, що вони зїли.
2. Запишите внутреннее представление следующих десятичных чисел, используя 8-разрядную ячейку:
а) 64 б) -120 в) -96 г) 57
а)
б)
в)
г)
3. Запишите внутреннее представление следующих десятичных чисел, используя 16-разрядную ячейку:
а) -15098 б) 6524 в) -28987
а)
б)
в)
4. Определите, каким десятичным числам соответствуют следующие двоичные коды 8-разрядного представления целых чисел:
а) 00100111 б) 11001110 в) 10101010 г) 01111110
а)
б)
в)
г)
1. Верно ли , что треугольник равнобедренный?
2. Верно ли , что число А кратно 3?
Читайте также
(спомощью языка паскаля) не знаю сколько пунктов, поэтому указл 10
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
ствния все целые числа расположенные между ними(включая сами числа)а так же кол-во N этих чисел, заранее благодарю
целые числа, расположенные между A и B (не включая числа A и B), а
также количество N этих чисел.
Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз). 2.Дано вещественное число A и целое число N (> 0). Вывести все целые степени числа A от 1 до N. 3.Дано вещественное число A и целое число N (> 0). Вывести 1 + A + A2 + A3 + ... + An. ,