Программа написана на Python 3.6
a = input().split() #Вводятся элементы через пробел
a = [float(i) for i in a]
a.append(min(a) - 1)
a.append(min(a))
iMax = a.index(max(a))
for i in range(len(a) - 1, iMax + 1, -1):
a[i], a[i - 1] = a[i - 1], a[i - 2]
a[iMax + 1] = int(input())
for i in range(len(a) - 1, iMax, -1):
a[i], a[i - 1] = a[i - 1], a[i - 2]
a[iMax] = int(input())
print(' '.join([str(i) for i in a]))
На паскале:
var a:integer;
begin
writeln('Введите целое положительное число');
read(a);
if a mod 2 = 0 then writeln('Число чётное')
else writeln('Число нечётное');
end.
Алгоритм - это определенный набор инструкций, порядок действий.
Словесный - составленный на словах, ртом; графический - с помощью рисунка, графика; программный - в программе, на компьютере.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a, b):= ReadReal2('a, b=');
if (b <> 0)then Writeln('D = ', a/b)
else Writeln('No Solution Exist');
end.
var
a, b, c : real;
begin
read (a, b, c);
if (a = b) or (b = c) or (a = c) then writeln ('Yes') else writeln ('No');
end.