Предмет: Информатика
Автор: snabrazovskaya
Вопрос задан 9 лет назад

< >

Задача по информатике. Найти сумму цифр данного целого числа. Программа. Паскаль

Ответы

Ответ дал: Amway96rus

0

var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.

Ответ дал: Amway96rus

0

немного не в столбик

Похожие вопросы

Русский язык

2 года назад

I. Вставьте пропущенные буквы, раскройте скобки. II. Докажите, что текст, приведённый ниже, относится к публи- цистическому стилю речи.

Английский язык

2 года назад

СРОЧНО ПЕРЕВЕДИТЕ ТЕКСТ НА АНГЛИЙСКИЙ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Что бы успеть привести себя в порядок и повторить пройденные темы я просыпаюсь в 6:00.Мне не приходится ехать в школу на машине

Геометрия

7 лет назад

Помогите пожалуйста, 7 класс, выполните с доказательством и рисунками

Алгебра

7 лет назад

ПОСМОТРИТЕ СКРИН СРОЧНО!

Биология

9 лет назад

Сколько содержится нуклеотидов аденина (А), тимина (Т), гуанина (Г) и цитозина (Ц) во фрагменте молекулы ДНК, если в нем обнаружено 1200 нуклеотидов цитозина (Ц), что составляет 20% от общего

Математика

9 лет назад

Вырази в миллиметрах: 5 см 4 мм; 2дм; 1 дм 5 см; 2 дм 1 см 6 мм.

Математика

9 лет назад

В записи каждого из данных натуральных чисел впиши пропущенные цифры так чтобы каждое следующее число было больше предыдущего 87798, 87???, 8???? Результат сравнения трёх полученных чисел запиши с

Математика

9 лет назад

Привет) Математику терпеть не могу, поэтому и плохо ее понимаю. Помогите пожалуйста :) 1. Из каких отношений можно составить пропорцию: А=4,8:0,9 Б=1.6:0.3 В=0.48:0.9 Г=25:12 И