Var n, m, sum: integer; begin sum : = 0; repeat writeln('введите числ с которого начинается ряд'); readln(n); writeln('введите число которым заканчивается ряд'); readln(m); until n< m; if odd(n) then n : = n + 1; if odd(m) then m : = m - 1; sum : = (n + m) * (m - n + 2) div 4; writeln('сумма чётных чисел натурального ряда: ', sum); end.
num = input('Введите номер группы: ')
while True:
command = input('Ввести данные?\n(y/n) ')
if command == 'y':
surname = input('Введите фамилию: ')
email = input('Введите почту: ')
if input('Внести данные?\n(y/n) ') == 'y':
with open(f'{num}.txt', mode='a', encoding='utf-8') as f:
f.write(f'{surname} - {email}')
print('Данные записаны')
else:
print('Запись данных отменена')
else:
print('Выход...')
break
with open(f'{num}.txt', mode='r', encoding='utf-8') as f:
data = f.read()
print('Фамилия - Почта')
print(data)
Вроде как вполне работает