program t3;
var a,b,c:real; {допустимо поменять на integer}
begin
writeln ('Vvedit a,b,c');
readln (a,b,c);
if (a<=b+c) and (b<=a+c) and (c<=a+b) then writeln ('0'); else
if (a=c) and (c=b) then writeln (3); else
if (a=c) or (a=b) or (b=c) then writeln ('2'); else
writeln ('1');
readln
end.
X - длина шнура 1 х-1длина шнура 2 х+1 длина шнура 3x+х+1+х-1=303х=30х=10 длина шнура 1 10-1=9 длина шнура 2 10+1=11 длина шнура 3
Var
x, y, z, a, b: real;
begin
readln(x, y, z);
a := x * x * x * sqr(Tan(sqr(x + y))) + z / sqrt(x + z);
b := (y * x * x - z) / (exp(z * x) - 1);
writeln('a=', a);
writeln('b=', b);
end.
наверное компьютер, мышь,принтер,колонки, клавиатура
Известняк белый, светло-серый, желтоватый. твердый, не имеет блеска<span>
гипс белый, светло серый, твердый, не имеет
песок разного цвета(черный, желтый итд), рыхлый, блеск имеет
нефть </span>буро-коричневый, бесцветный, жидкий. не имеет<span>
кварц </span>Бесцветный, белый, фиолетовый, серый, жёлтый, коричневый, твердый. имеет Стеклянный блеск.<span>
базальт темные цвета, твердый, </span>блеск<span> светло-желтоватого или светлозеленоватогоцвета</span><span>
гранит. </span><span>Цвет гранита имеет очень широкий цветовой диапазон. Твердый, не имеет</span>