квадратная стена в каждый угол посадить по зайцу, это будет 4 зайца, а пятого посадить в получаем у каждой стены по2 зайца
Ответ дал: Гость
var a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: '); readln(a); // вводим число (можно больше трех знаков) while a < > 0 do // пока остались цифры в числе begin s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме a : = a div 10; // стираем последнюю цифру числа end; writeln('сумма цифр = ', s) // выводим результатend.
Популярные вопросы