Ну как-то так у меня вышло на скорую руку
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.
"В"скорее всего, так как тут говориться про природу!
<span>A:\Документы\Сочинения\Литература.doc.
А:\Фото\Принтер.bmp
А:\Фото\Компьютер.bmp</span>
<span><span>Если правильно расставить отступы, то алгоритм должен вывести это:
Ира съел(a) молоко.
#Programm created by lagov Gleb
</span><span>#This programm is generator random wordsXD
</span>name = ['Глеб', 'Артем', 'Ира', 'Варя', 'Андрей']
glagol = ['выпил(a)', 'съел(a)', 'купил(а)', 'укусил(а)', 'пнул(а)']
predmet = ['молоко', 'дверь', 'велосипед', 'лестницу', 'XBOX', 'PlayStation']
from random import randint
def pick(words):
num_words = len(words)
num_picked = randint(0, num_words - 1)
word_picked = words[num_picked]
return word_picked
print(pick(name), pick(glagol), pick(predmet), end='.\n')
input()</span>