в Turbo Pascal создать програму "Порахувати суму цифр" -
10-11 класс
|
var
a,n:integer;
begin
read(a);
while a <> 0 do begin
n:=n + a mod 10;
a:= a div 10;
end;
write('summa zifr = ', n)
end.
Другие вопросы из категории
Выберите один ответ.
1), состоящее из отдельных объектов
2) изображение, состоящее из набора точек
3) изображение, содержащее большое количество цветов
понижалась . напишите программу, определяющую , в котором часу была впервые отмечена отрицательная температура .
Читайте также
программу меняющихся местами первую и последнюю цифру.
Задание1.Вычислить заданное выражение для данных a, b используя оператор IF. Результат Х – введите вещественный тип данных
a*b-1,если a>b,
(a-5)/b,если a>b
X=
Задание 2. Вычислить заданное выражение для данных a, b используя, оператор
правильный ответ и ввести его номер.Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Архитектор Исаакиевского собора:
1. Доменико Трезини
2. Огюст Монферран
3. Карл Росси
Введите номер правильного ответа и нажмите <Enter>
= 2
Правильно.
Архитектор Исаакиевского собора - Огюст Монферран
на языке Turbo Pascal