Вывести на экран сумму цифр во всех введённых двузначных числах

@44456 · Регистрация: 02.03.2020

Author24 — интернет-сервис помощи студентам

Цикл с предусловием WHILE.

С клавиатуры вводятся двузначные числа (натуральные), пока не будет введено другое число.

Вывести на экран сумму цифр во всех двузначных числах.

@Cyborg Drone · 14.01.2021, 09:38

Pascal

begin
  var n := 10;
  var s := 0;
  while n in [10..99] do
    begin
      n := ReadInteger;
      if n in [10..99] then s += n div 10 + n mod 10
    end;
  s.PrintLn
end.

@44456 1 / 1 / 0 Регистрация: 02.03.2020 Сообщений: 54
		1
	Вывести на экран сумму цифр во всех введённых двузначных числах 03.12.2020, 12:54. Показов 1390. Ответов 1 Метки нет (Все метки) Цикл с предусловием WHILE. С клавиатуры вводятся двузначные числа (натуральные), пока не будет введено другое число. Вывести на экран сумму цифр во всех двузначных числах. 0

	14.01.2021, 09:38

Вывести на экран сумму цифр во всех введённых двузначных числах

Решение