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

Question

Информатика

Аврора

18 апреля, 12:54

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

+1

Ответы (2)

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

Глафира · Answer 1

var

a, a1, a2:integer;

begin

repeat

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

readln (a) ;

a1:=a div 10;

a2:=a mod 10;

until (a1+a2=10) ;

writeln ('Верно ') ;

end.

Ромаша · Answer 2

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.