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.
Жизненный опыт которого передает родитель ребенку
На 4 не знаю
сейчас еще скину одно фото жди ))
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419