ЛЮДИ ДОБРЫЕ, КТО РАЗБИРАЕТСЯ нужно сделать на питоне «A»: Построить класс Попугай (Parrot), который умеет говорить какую-то фразу, заранее определённую при описании класса. Пример: p = Parrot() p.say() Привет, друзья! «B»: Изменить класс из задания A так, чтобы фраза задавалась при создании конкретного экземпляра. Пример: p1 = Parrot( "Гав!" ) p2 = Parrot( "Мяу!" ) p1.say() Гав! p2.say() Мяу! «С»: Изменить класс из задания B так, чтобы фразу можно было изменять во время работы программы. Пример: p = Parrot( "Гав!" ) p.say() Гав! p.newText( "Мяу!" ) p.say() Мяу! «D»: Изменить класс из задания C так, чтобы при вызове метода say можно было задать число повторений. Пример: p = Parrot( "Гав!" ) p.say() Гав! p.newText( "Мяу!" ) p.say( 3 ) Мяу! Мяу! Мяу!

А)uses crt;
const n=20;
var a:array[1..n] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
if (a[i] mod 2=0) and (i mod 2 =0) and (a[i]<0)
then
begin
inc(k);
s:=s+a[i];
end;
end;
writeln(s);
writeln(k);
end.

б)uses crt;
const n=20;
var a:array[1..n] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
if (a[i]mod 3=0) and (a[i] mod 5<>0) then
begin
s:=s+a[i];
inc(k);
end;
end;
writeln(s);
writeln(k);
end.

в)uses crt;
const n=20;
var a:array[1..n] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
if (abs(a[i]))>(i-2)
then
begin
inc(k);
s:=s+a[i];
end;
end;
writeln(s);
writeln(k);
end.

// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840