Question

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

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.