Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр числа, в противном случае отбросить последнюю цифру. Pascal
function summ(a:integer):integer; begin while(a<>0) do begin summ =a mod 10; a:=a div 10; end; end;
var a:integer; begin read(a); if(a mod 10 = 2) or (a mod 10 = 3) then a*=(a div 10) mod 10 else if(a mod 10 >= 7) and (a mod 10 <= 9) then a-=summ(a) else a:=a div 10; writeln(a); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
