Как я понял, если при выборе 2-х любых шаров как минимум 1 из них чёрный, то мы не можем достать 2 белых шара => раз кол-во белых шаров - натуральное число и оно < 2, то оно равно 1 (возможно требуется написать про 0, но тогда утверждение "что из двух любых шаров хотя бы один черный" будет звучать как "<span>что из двух любых шаров хотя оба чёрные</span>", поэтому я его не пишу в ответ)
Выведет 5, т.к pop удаляет последний элемент массива и выводит его
Для первого решу,а дальше сам.... ПРОГРАММА ДЛЯ ПАСКАЛЯ!!!!!!!!!!
Program dvoechnik;
var a,b,s,p:real;
begin
writeln ('Площадь прямоугольника');
writeln ('Введите ширину');
readln (a);
writeln ('Введите длинну');
readln (b);
s:=a*b;
p:=(a+b)*2;
writeln ('S=',s);
writeln ('P=',p);
end.
type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.