Если число заканчивается на 2 или 3, то исходное число умножить на число десятков в нем, если число единиц от 7 до 9, то из числа вычесть сумму цифр числа, в противном случае отбросить последнюю цифру.Я в 8 классе помогите реш...
Если число заканчивается на 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.
Гостьvar
i, n, a, b,n1: integer;
begin
write('Введите число ');
Readln(n);
n1 := n;
a := n mod 10;
case a of
2, 3: n := n * ((n div 10) mod 10);
7, 8, 9: begin for i := 1 to length(inttostr(n)) do begin b := b + (n mod 10);n := n div 10; end;n := n1 - b; end;
1, 4, 5, 6, 0: n := n div 10;
End;
Write(n);
end.
Не нашли ответ?
Похожие вопросы