• Написать в программе Паскаль:
    Дано целое число. Если оно двузначное, найти сумму его цифр.

Ответы 1

  • Program zadanie;Var a,b:integer;Begin Writeln('Введите целое число'); Readln(a); If (a div 10>0) or (a div 10<0) Then begin b:=a div 10; a:=a mod 10; a:=a+b; Writeln('Сумма=',a); end;End.
    • Автор:

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

Войти через Google

или

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

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

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