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

Question

Информатика

Коляха

4 февраля, 19:15

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

+1

Ответы (2)

Знаете ответ на вопрос?

Кельтск · Answer 1

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.

Агафоклия · Answer 2

var

a, a1, a2:integer;

begin

repeat

writeln (' Введите число') ;

readln (a) ;

a1:=a div 10;

a2:=a mod 10;

until (a1+a2=10) ;

writeln ('Верно ') ;

end.