N=int(input())
if n<7:
print('ребёнок')
elif n<18:
print('ученица')
elif n<50:
print('работающися')
else:
print('пенсионерка')
Фрагмент — это некоторое количество рядом стоящих символов,которые можно рассматривать как единое целое<span>.</span>
Смотри вложение
..........................
152 (10сс)=128+16+8=2^7+2^4+2^3=10011000 (2сс)
ответ 5 нулей
Вот держи! Я даже сделал проверку что сторона не меньше нуля.
Var a,b,c,p :real;
Begin
Write('Введите длинну стороны а >>> ');
Readln(a);
Write('Введите длинну стороны b >>> ');
Readln(b);
Write('Введите длинну стороны c >>> ');
Readln(c);
Writeln('--------------------------------------------------------------');
If (a>0) and (b>0) and (c>0) then
Begin
P:=a+b+c;
Write('Периметр треугольника со сторонами ',a,' , ',b,' , ',c,' равен >>> ',p);
End
Else
Begin
Writeln('Ошибка!!!');
Write('Длинна сторон должна быть больше нуля');
End;
End.