Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр
числа, в противном случае отбросить последнюю цифру.Я в 8 классе помогите решить похоже , что это я решал )

Ответ оставил Гость

Примерно так, надеюсь не ошибся:
Function SumCifr(N : Integer) : Byte;
Begin
  If N>0 then SumCifr:=N mod 10+SumCifr(N div 10) else SumCifr:=0;
end;

Var A : Integer;
Begin
  Readln(a);
  Case a mod 10 of
    2,3  : a:=a*(a div 10 mod 10);
    7..9 : a:=a-SumCifr(a);
    else a:=a div 10;
  end;
  Writeln(a);
end.