• Задано натуральные числа от 10 до N. Для натурального числа найти
    первую цифру и сумму его цифр.Решить на языке PascalABC.NET

Ответы 1

  • var N,sum,k: integer;begin sum:=0; WriteLn('Введите N'); readln(N); while N <=9 do begin writeln('Введите корректное число (больше или равное 10)'); readln(N); end; while N >=10 do begin k:= N mod 10; N:= N div 10; sum:= sum + k; end; sum:=sum + N; write('Первая цифра числа '); writeln(N); write('Сума цифр числа '); writeln(sum); end.
    • Автор:

      star5
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years