Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
axmefibragimovp09v94
19.11.2020 18:38 •
Информатика
Определить сумму цифр введенного числа a (a< 1000) в паскале, через for
Показать ответ
Ответ:
Dozie
02.10.2020 16:39
//Инициализация a,i,sum//
//Ввод А//
if a>=1000 then readln <A>
else for i:=1 to A do
sum:=sum+1;
writeln <,sum>;
readln;
end;
0,0
(0 оценок)
Ответ:
calimova123
02.10.2020 16:39
var a, sum, i: integer;
begin
writeln('Enter number: ');
readln(a);
sum := 0;
for i:=1 to a do
begin
sum := sum + n mod 10;
n := n div 10 end;
end;
writeln('Sum of digits = ', sum);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olliu56
23.05.2022 08:06
База данных содержит следующие записи: Какие из записей поменяются местами при сортировке по возрастанию по полю Фамилия?...
Kamelotka
23.02.2023 08:24
Нужно в течении часа!...
chernika25
09.07.2020 16:10
найти ошибку. Даны координаты трех вершин треугольника (x1,y1), (x2,y2), (x3,y3). Найти его периметр и площадь.Входной формат: Три пары целых чисел - координаты вершин...
мурадаббасов
17.03.2020 14:33
Запиши формулу, чтобы узнать цыфра положительная или отрицательная...
lelikbalelik
28.04.2021 00:40
Построчная проверка файла на наличие вопросительного знака С++...
ксю882
03.08.2022 22:59
Робота працівників за один день. до ть будь ласка, ів...
Kissi1111
27.03.2022 22:15
1. Слоги Дается слово состоящая из букв английского алфавита. Нужно определить, сколько слогов в нем. Для простоты считайте, что в каждом слоге ровно одна гласная...
Xxxin
03.11.2022 09:12
По информатике (в вузе ) дали сделать презентацию. Сделать презентацию по теме модуль queue (c++) . 1. История 2. Свойства функции 3. Примеры 4. Факты 5. Область...
dondokuchaev2015
21.10.2022 02:42
1) Процессор выполняет 3*10243 элементарных операций в секунду. Сколько секунд потребуется процессору для обработки 120 Гбайт информации, если за одну элементарную...
mayyyyyyka
14.05.2023 21:00
Пані Петренко поклала у банк X гривень під p відсотків річних з капіталізацією після закінчення року. складіть електронну таблицю для визначення прибутку які вона...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Ввод А//
if a>=1000 then readln <A>
else for i:=1 to A do
sum:=sum+1;
writeln <,sum>;
readln;
end;
begin
writeln('Enter number: ');
readln(a);
sum := 0;
for i:=1 to a do
begin
sum := sum + n mod 10;
n := n div 10 end;
end;
writeln('Sum of digits = ', sum);
readln;
end.