Написать программу, выдающую результат — равна ли сумма цифр введенного…

Question

44

Написать программу, выдающую результат — равна ли сумма цифр введенного положительного числа 10 с защитой от неверного ввода. (неверный вод-если суммане равна 10 то программа должна заново спросить какие числа он хочет ввести) Делать в Turbo Pascal

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

mirina · Accepted Answer

42

mirina

27 февраля 2023

function sum (n: integer): integer; begin sum: =0; while n > 0 do begin sum: =sum+n mod 10; n: =n div 10; end; end; var a: integer; begin repeat writeln ('a='); read (a); until sum (a)=10; writeln ('OK'); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: