1. Информатика
  2. Дано натуральное число. верно

Дано натуральное число. верно ли, что сумма его цифр больше 10? paskal

нмрмгштщ нмрмгштщ    3   02.04.2019 01:30    26

Ответы
Olesya1502 Olesya1502  28.05.2020 09:11

Паскаль пишется как Pascal.

 

var

  a, sum : integer;

begin

  read (a);

  sum := 0;

  while (sum <= 10) and (a > 0) do

  begin

    sum := sum + a mod 10;

    a := a div 10;

  end;

  if sum > 10 then write ('Yes') else write ('No');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
KsushaTrefilova KsushaTrefilova  05.04.2019 12:44
Смассивами, . много 5. задан массив x[n]. какой оператор надо поставить вместо многоточия, чтобы в результате в переменную nr был записан номер элемента, равного...
siifwfwutut3otu siifwfwutut3otu  05.04.2019 12:43
2. что представляет переменная str, введенная следующим образом: typedef char text[20]text str[3]; а) массив из трех строк по 20 символов в каждой; б) массив символов...
illaria2703 illaria2703  05.04.2019 12:42
Смассивами, 4. требуется поменять местами значения элементов массива x[a] и x[b]. какой оператор нужно добавить вместо многоточия? в ответе не используйте пробелы.p...
Иван199928 Иван199928  05.04.2019 12:40
4. требуется поменять местами значения элементов массива x[a] и x[b]. какой оператор нужно добавить вместо многоточия? в ответе не используйте пробелы. p = x[a];...
KPY3 KPY3  05.04.2019 12:30
Выберите верное утверждение: 1) объеденение занимает меньше места в памяти по сравнению со структурой с таким же набором полей​; 2)все поля объеденения не могут...
svatoslavsasko3 svatoslavsasko3  05.04.2019 12:22
Кому и как удалось разгадать тайну египетских иероглифов?...
katyakot56806 katyakot56806  09.02.2021 06:14
Пример Какая математическая функция языка Python использована? 1 Print (8%2) #ответ 0 A Произведение 2 Print (25*7) #ответ 175 B Возведение в степень 3 Print (4**2)...
delacourr delacourr  24.04.2020 20:22
1.Чем была вызвана Смоленская война, когда она проходила, её итоги. 2.Кто командовал русскими войсками в Смоленской войне. 3.Кто стоял во главе национально-освободительной...
Александра2280193 Александра2280193  24.04.2020 20:22
Приведён ряд веществ: HCl, CO2, KOH, H2SO4, HNO3, H2O, ZnO. Укажи кислоту, которая относится к бескислородным. В ответе напиши название кислоты по международной...
Timofry Timofry  24.04.2020 20:27
Написать 12 предложений на английском. -В каждом предложении должно быть не менее 13 слов. -Все они должны быть в present simple (Настоящее время вроде). -4 предложения...

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