Як записати на мові прогрвмування Lazarus
h=3a(r+3d)?​

class Student():

   def __init__(self, name, adress, klass, profile, subj, raiting, teacher):

       self.name = name

       self.adress = adress

       self.klass = klass

       self.profile = profile

       self.subj = subj

       self.raiting = raiting

       self.teacher = teacher

   def print_info(self):

       print('Ім\'я учня:', self.name)

       print('Адресс:', self.adress)

       print('Класс:', self.klass)

       print('Профіль', self.profile)

       print('Предмет:', self.subj)

       print('Оцфнка:', self.raiting)

       print('Вчитель:', self.teacher, '\n')

artemenko_inf = Student('Артеменко О.П.', 'м. Київ, вул. Солом\'янська, 1', '10А', 'Гуманітарій', 'Інформатика', '10', 'Іванов І.А.')

artemenko_ukr = Student('Артеменко О.П.', 'м. Київ, вул. Солом\'янська, 1', '10А', 'Гуманітарій', 'Укр. мова', '9', 'Жук А.О.')

artemenko_fiz = Student('Артеменко О.П.', 'м. Київ, вул. Солом\'янська, 1', '10А', 'Гуманітарій', 'Фізика', '7', 'Король О.А.')

artemenko_inf.print_info()

artemenko_ukr.print_info()

artemenko_fiz.print_info()

koben_algeb = Student('Кобен С.К.', 'м. Київ, вул. Тичини, 12', '10Б', 'Фізико-математичний', 'Алгебра', '12', 'Пиріг О.Л.')

koben_inf = Student('Кобен С.К.', 'м. Київ, вул. Тичини, 12', '10Б', 'Фізико-математичний', 'Інформатика', '10', 'Іванов І.А.')

koben_ukr = Student('Кобен С.К.', 'м. Київ, вул. Тичини, 12', '10Б', 'Фізико-математичний', 'Укр. мова', '10', 'Повх А.К.')

koben_algeb.print_info()

koben_inf.print_info()

koben_ukr.print_info()

morbls_chem = Student('Морись П.З.', 'м. Київ, вул. Вишнева, 3', '10А', 'Гуманітарій', 'Хімія', '10', 'Заєць А.В.')

morbls_chem.print_info()

Объяснение:

я создал класс "ученик", с именем адресом и т.д., и потом создал переменные, которым присвоил класс "ученик" и вывел информацию о них

ответ:Program a10;

var a,b:Array [1..100,1..100] of integer;

k,i,n,j,s:integer;

Begin

read(n);

For i:=1 to n do

begin

For j:=1 to n do

begin

read(a[i,j]);

end;

end;

i:=0;j:=0;s:=0;k:=0;

while i<=n do

begin

i:=i+1;j:=j+1;

if(a[i,j]>0)then k:=k+1;

s:=s+a[i,j];

end;

writeln(k,' ',s);

end.

2)

Program a10;

var a,b:Array [1..100,1..100] of real;

k,i,n,m,j:integer;

s:real;

Begin

read(n,m);

For i:=1 to n do

begin

For j:=1 to m do

begin

read(a[i,j]);

end;

end;

k:=0;

for j:=1 to m do

begin

s:=0;

for i:=1 to n do

begin

s:=s+a[i,j];

end;

for i:=1 to n do

begin

if(a[i,j]>(s-a[i,j]))then k:=k+1;

end;

end;

writeln(k);

end.

Объяснение: