Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа. Сделать в Pascal ABC.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составить блок-схему для нахождения суммы всех натуральных чисел, кратных 10.
Автор: denbelousov963
НАЙТИ список тем лабораторных работ по PowerPoint.
Автор: ПодлеснаяМакарова1883
1.в алфавите 16 символов. сколько бит нужно для кодирования 1 символа?
Автор: serge-lysoff
var a,i:integer; //объявляем переменную
begin
writeln('Введите число: ');
readln(a);
if (a > 100) then //проверка
for i:=a downto 1 do //проходит значения от a до 1
write(i, ' ')//выводим в одну строку
else //иначе
for i:=1 to a do //проходит значения от 1 до a
write(i, ' ');
readln(); // удерживаем консоль
end.