Предмет: Информатика, автор: самуэлс

дано трёхзначное число. Определить: является ли сумма его цифр двузначным числом

Ответы

Автор ответа: archery
0

var a,s:integer;

Begin

  read(a);

  repeat

    s:=s+a mod 10;

    a:=a div 10

  until a=10;

  if (s<100) and (s>9) then write('Yes')

  else write('No');

End.

Похожие вопросы
Предмет: История, автор: komarova