?>
Напишите на питоне 1. Введите три числа и выведите их через запятую Sample Input 1: 1 2 3 Sample Output 1: 1, 2, 3 Sample Input 2: 5 43 21 Sample Output 2: 5, 43, 21 2.Программа, считывает натуральное число n, после чего выводит двойное неравенство этого числа с его соседними числами. Sample Input: 15 Sample Output: 14 < 15 < 16 3.Вам необходимо вывести три фразы, разделяя их тремя дефисами. Сами фразы вводятся с клавиатуры на трех разных строчках Sample Input: Да прибудет с тобой Сила Sample Output: Да прибудет---с тобой---Сила 4.В этой задаче мы сами будем решать, какое значение использовать в качестве разделителя в параметре sep Программа принимает на вход строку - разделитель, вам необходимо распечатать числа от 1 до 5, выводя между ними введенный разделитель Sample Input 1: ! Sample Output 1: 1!2!3!4!5 Sample Input 2: $ Sample Output 2: 1$2$3$4$5 Sample Input 3: BoB Sample Output 3: 1BoB2BoB3BoB4BoB5 5.Что будет напечатано в результате выполнения данной программы? print('Гвидо', 'Ван', 'Россум', sep='*', end='-') print('Основатель', 'Питона', sep='_', end='!')
Ответы
program z1;
var n,k:integer;
begin
k:=0;
write ('Введите натуральное число (n>9): ');
readln (n);
write ('Цифры натурального числа ',n);
while n>=10 do
begin
if n mod 10 < n div 10 mod 10 then k:=1;
n:=n div 10
end;
if k=1 then write (' НЕ расположены в порядке возрастания')
else write (' расположены в порядке возрастания')
end.
Объяснение:
Вводим число
Цикл с предусловием (условие число больше или равно 10)
Сравнение последней и предпоследней цифр числа, если последняя меньше, то k присваивается значение 1
n присваивается значение целочисленного деления на 10 (отбрасываем последнюю цифру числа)
Если k = 1, то цифры не расположены в порядке возрастания, иначе расположены