Заполнить пятью записями реляционную бд «пациент», содержащую поля: фамилия, имя, отчество, дата рождения, номер участка, адрес, дата последнего посещения врача и оформить ее в виде таблицы.

//pascalabc.net 3.4.2

begin

  var num : = readinteger('введите число: ').tostring;

  if(num.sum(x -> strtoint(x)) in [10..99]) then  

    write('сумма цифр является двузначным числом,')

  else  

    write('сумма цифр не является двузначным числом,');

  if(num.contains('4')) or (num.contains('7')) then

    write(' в записи этого числа есть числа 4 или 7.')

  else  

    write(' в записи этого числа нет числа 4 или 7.');

end.

ответ:Вывести числа в определенном диапазоне:

for num in range(1, 101):

   print(num)

Вывести числа в определенном диапазоне:

for num in range(100, 0, -1):

   print(num)

Вывести числа в диапазоне:

N = int(input("Введите число N: "))

for num in range(1, 101):

   print(num)

Вывести четные числа в определенном диапазоне:

for num in range(1, 101):

   if num % 2 == 0:

       print(num)

Посчитать сумму чисел от 1 до 100, используя цикл For:

sum_of_numbers = 0

for num in range(1, 101):

   sum_of_numbers += num

print(sum_of_numbers)

Вычислить сумму чисел:

A = int(input("Введите число А: "))

B = int(input("Введите число В: "))

sum_of_numbers = 0

for num in range(A, B+1):

   sum_of_numbers += num

print(sum_of_numbers)

Вычислить произведение чисел:

A = int(input("Введите число А: "))

B = int(input("Введите число В: "))

product_of_numbers = 1

for num in range(A, B+1):

   product_of_numbers *= num

print(product_of_numbers)

Объяснение: