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