ЕСЛИ с1 > с2 ТО ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с1 > с3 ТО Вывод.Цепь("^Первый.") ИНАЧЕ Вывод.Цепь("^Первый и третий.") АЕСЛИ с2 > с1 ТО ЕСЛИ с3 > с2 ТО Вывод.Цепь("^Третий.") АЕСЛИ с2 > с3 ТО Вывод.Цепь("^Второй.") ИНАЧЕ Вывод.Цепь("^Второй и третий.") ИНАЧЕ ЕСЛИ с3 > с1 ТО Вывод.Цепь("^Третий.") АЕСЛИ с3 < с1 ТО Вывод.Цепь("^Первый и второй.") ИНАЧЕ Вывод.Цепь("^Ничья.") КОН
phrases = ('Делу время - потехе час', 'С Новым годом', 'Первое сентября') key = int(input("Введите смещение: "))
for phrase in phrases: ciphered = '' for c in phrase: if not c.isalpha(): ciphered += c if c.islower(): ciphered += I2SL[ (SL2I[c] + key) % 33 ] if c.isupper(): ciphered += I2TL[ (TL2I[c] + key) % 33 ] print("{} | {}".format(phrase, ciphered))
Program zadacha1;
var
s,n : integer;
begin
writeln('Введите N');
read(n);
s:=0;
while (n<>0) do
begin
inc(s,n);
dec(n);
end;
writeln('Сумма = ',s);
end.
Объяснение: