помогите пожалуйста с информатикой: дано двухзначное случайное число.Определите,является ли сумма его цифр меньше либо равной 10. (нужно написать программу)
Answers & Comments
dar290199
Program ex; uses crt; var N, sum: integer; begin read(N); sum:=0; while N > 0 do begin sum:= sum + N mod 10; N:= N div 10; end; if sum < 10 then print('Yes!') else print('No!'); end.
Answers & Comments
uses crt;
var N, sum: integer;
begin
read(N);
sum:=0;
while N > 0 do
begin
sum:= sum + N mod 10;
N:= N div 10;
end; if sum < 10 then
print('Yes!') else
print('No!');
end.