Создать типизированный файл и записать в него числа 10, 12, . переписать в новый файл все числа, кратные 4.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var fin,fout:file of integer;
  Assign(fin,'in.dat'); Rewrite(fin);
  var i:=10;
  while i<=20 do begin Write(fin,i); i+=2 end;
  Seek(fin,0);
  Assign(fout,'out.dat'); Rewrite(fout);
  while not fin.Eof do begin
    Read(fin,i);
    if i mod 4=0 then Write(fout,i)
    end;
  fin.Close; fout.Close
end.

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 - Возвращает количество элементов со значением...

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 - Возвращает количество элементов со значением...