1. Создайте структуру с именем student, содержащую поля: фамилия и инициалы, номер группы, успеваемость (массив из
пяти элементов). Создайте ункцию по выводу информации о
студенте, функцию по подсчету средней арифметической
оценки.
Создайте конструкторы для этого класса.

корректны высказывания:

1. программную систему можно рассматривать как множество классов, позволяющих создавать, получать доступ и изменять коллекции данных, называемых объектами

3. вызов объектом компонента – основная базисная операция оо программирования

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.

пусть наше число записывается в виде abc. тогда в системе счисления с основанием x числа abc и abcabc выражаются следующим образом:

abc = ax^2 + bx +c (1)

abcabc = ax^5 + bx^4 + cx^3 + ax^2 + bx + c = x^3(ax^2 + bx + c) + (ax^2 + bx + c) = (x^3 + 1)(ax^2 + bx + c) (2)

из условия следует, что (2) должно равняться (1), умноженному на 4097:

(x^3 + 1)(ax^2 + bx + c) = 4097*(ax^2 + bx +c) => х^3 = 4096 => х = 16

ответ: основание системы счисления равно 16 (т.е. это шестнадцатиричная система счисления).

запишу на обычном языке, паскаль не помню уже.

а - первое число. б - второе число.

если а больше б и б div 5=0 тогда выводится на экран (' б наименьшее число и нацело делится на 5')

если б больше а и а div 5=0 тогда выводится на экран (' а наименьшее число и нацело делится на 5')

точно не помню как выглядит это в паскале, но что-то типо такого

if a< b and a div 5=0 then writeln ('а наименьшее число и нацело делится на 5');

if b< a and b div 5=0 then writeln ('б наименьшее число и нацело делится на 5');