Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 3 и оканчивающихся на 1. Программа получает на вход натуральные числа, количество введённых чисел соответствует количеству букв в Вашей фамилии(7).

Объяснение:

print('Введите 7 чисел:')

s=0

for i in range(7):

   a=input()

   if a[-1]=='1' and (int(a) % 3)==0:

       s+=int(a)

print('s=',s)

ответ:

uses crt;

const max=100;

var matrix: array[1..max,1..max] of integer;

    i,j,sum1,sum2,m: integer;

begin

  clrscr;

  randomize;

  repeat

    writeln('введите размерность квадратной матрицы ');

    readln(m);

  until m in [1..max];

  for i: =1 to m do

    for j: =1 to m do

      matrix[i,j]: =random(25); //при необходимости замените на ручной ввод

  for i: =1 to m do

    begin

      for j: =1 to m do

        write(matrix[i,j]: 4);

        writeln;

    end;

  sum1: =0; sum2: =0;

  for i: =1 to m do

    begin

      sum1: =sum1+matrix[i,i];

      sum2: =sum2+matrix[m-i+1,i];

    end;

  writeln('сумма элементов главной диагонали: ',sum1);

  writeln('сумма элементов побочной диагонали: ',sum2);

  readln;

end.

объяснение: