1. Информатика
  2. Дано трёхзначное число.

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

bombila663 bombila663    2   08.03.2019 12:40    21

Ответы
SandruhA SandruhA  24.05.2020 06:07

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MoonVar MoonVar  10.05.2020 13:57
Запиши программу на языке Паскаль. var i,n:word; begin write( n= ); readln(n); for i:=1 to n do begin write(i, ); end; readln; end. На экране n=5 5 0 25 12345...
  10.05.2020 13:44
Решите кроссворд. Некоторые ответы отгаданы Заранее...
diman10000 diman10000  12.12.2020 02:39
Посчитайте сколько фигур тетрамино нужно взять чтобы ими можно было полностью заполнить N рядов в клетчатом поле шириной 3 клетки и высотой...
Sanshooos Sanshooos  12.12.2020 02:39
решить Составьте программу решения следующей задачи. Вычислите зарплату работника при почасовой оплате, если известно, что тарифная ставка за 1 ч равна А р. а количество отработанных...
polina2006200 polina2006200  12.12.2020 02:40
Температура нагревателя идеальной тепловой машины составляет 227 °С, а охладителя — 27 °С. Заодин рабочий цикл тепловой машиной выполняется работа 60 Дж. Какое количество теплоты...
Yana111111743 Yana111111743  14.12.2021 19:47
Есть код: #include #include using namespace std; int main() { float a, b, h, x, y, n; cout a= ; cin a; cout b= ; cin b; cout h= ; cin h; if (b (b - a) || h == 0) cout Ne sysh. ;...
Антон2004111 Антон2004111  14.12.2021 19:46
З ясуйте як можна знайти нерозривні пропуски в тексті, збере- женому з Інтернету. Складіть алгоритм виділення в тексті таких символів....
miroororoe01 miroororoe01  04.05.2020 20:50
Что такое сервер?1.Общая схема соединения компьютеров 2. Кабель, соединяющий компьютеры между собой 3. Компьютер, выделенный для хранения файлов и программных обеспечений4. Канал...
dilmurod9292 dilmurod9292  27.10.2020 13:54
За итоговый тест 10002 учеников получили оценку«5», 10102 учеников получилиоценку «4», 1112 учениковполучили оценку «3», одинученик не справился сработой и 102 отсутствовало.Сколько...
Eгор43 Eгор43  27.10.2020 13:54
Обратимое преобразование информации в вид, недоступный для чтения. A) Расшифрование. B) Шифрование. C) Перестановка. D) Криптография. E) Кодирование. ПРЯМ...

Популярные вопросы