Лестница получится, идущая слева-направо с снизу-вверх.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=ReadReal3;
var u:=Min((x+y+z)/2,x*y*z)+1;
Writeln(u)
end.
Метод set нужен для того что бы присвоить закрытым (private) переменным в классе какое-либо значение. Т.к поле private
доступно только для методов этого класса.
А конструктор в зависимости от условия присваивает им какое-либо дефолтное значение . Разница в том что конструктор запускается автоматически при создании объекта.
Приведу пример (с++)
class Fraction
{
private:
int N; int deN;
public:
Fraction(); // прототип конструктора
void setFraction(int, int); // прототип сет-метода
};
void Fraction::setFraction(int num, int denum) // сам сет-метод
{
N = num; deN = denum;
}
Fraction::Fraction() // конструктор
{
int N = NULL;
int deN= NULL;
}
Что-то такое получилось, пиши в комменты если что не так:
var
a,b,k:longint;
begin
b:=1;
k:=0;
while b<10000 do
begin
read(a);
b:=b*a;
k:=k+1;
end;
writeln('Kol:',k);
writeln('Number:',b);
readln
end.
Куропатка(130) * муравей или ноосфера(160) = 20800