Напишите программы: 1. дано число кратное 7 2. дано число. определить заканчивается ли оно на 0. 3. дано 2 числа найти минимальное.

1) var
a: longint;
begin
readln(a);
if (a mod 7 = 0) then
writeln('YES')
else
writeln('NO');
end.
2) var
a: longint;
begin
readln(a);
if (a mod 10 = 0) then
writeln('YES')
else
writeln('NO');
end.
3) var
a, b: longint;
begin
readln(a, b);
if (a > b) then
writeln('a > b');
if (a < b) then
writeln('a < b');
if (a = b) then 
writeln('a = b');
end.

Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:

var s,a:string;
    begin
    write('Введите строку : ');
    readln(s);
    write('Введите слово : ');
    readln(a);
       if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть')
       else writeln('В строке такого слова нет');
    end.

Тест №1
Введите строку : Привет участникам олимпиады!
Введите слово : ник
Слово "ник" в строке есть

Тест №2
Введите строку : Всем привет!
Введите слово : админ
В строке такого слова нет

1)

names = []

name = input()

names.append(name)

print('Имя успешно добавлено! Если хотите его удалить, введите - 1')

choice = int(input())

if choice == 1:

    names.remove(name)

2) print(names[0], names[-1])

3) print(len(names)) # names - ваш список.

4)

a = 'При'

b = 'ве'

c = 'т'

print(a + b + c)

5)

set_1 = set(['1', '2', '3'])

set_2 = set(['1', '7'])

print(set_2 - set_1)

6)

text = 'Напишите программу, которая находит самую большую сумму'

print(text.count('и'))

Объяснение:

len - находит длину.

count - Возвращает количество элементов со значением...