Написать программу, выдающую результат - равна ли сумма цифр введенного положительного числа 10 с защитой от неверного ввода. (неверный вод-если сумма не равна 10 то программа должна заново спросить какие числа он хочет ввести)...
Написать программу, выдающую результат - равна ли сумма цифр введенного положительного числа 10 с защитой от неверного ввода. (неверный вод-если сумма не равна 10 то программа должна заново спросить какие числа он хочет ввести) Делать в Turbo Pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar
a,a1,a2:integer;
begin
repeat
writeln (' Введите число');
readln (a);
a1:=a div 10;
a2:=a mod 10;
until (a1+a2=10);
writeln ('Верно ');
end.
Не нашли ответ?
Похожие вопросы