Question

помогите пожалуйста с информатикой: дано двухзначное случайное число.Определите,является ли сумма его цифр меньше либо равной 10.
(нужно написать программу)

Answer 1

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.