Ответ:
Вроде должно быть как-то так))))
Неформальный исполнитель - человек => ученик
Вроде здесь уже решал такое :)
//Pascal
var
n, a, b, c: integer;
begin
n := 1;
repeat
repeat
writeln(' Ведите стороны A,B,C ', n, ' - треугольника');
readln(a, b, c);
until ((a > 0) and (b > 0) and (c >0)) and ((a + b) >= c);
writeln('Периметр равен ',a + b + c);
n := n + 1;
until n > 25;
end.
Var
s:string;
begin
readln(s);
writeln(length(s));
end.
Если число оканчивается на ноль или пять,то оно кратно 5.
Так что,если в числе N на конце стоит 0 или 5,то сумма его цифр кратна 5.