Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Людочка6789
16.09.2020 04:31 •
Информатика
Напишите программу в pascal abc для первых n двузначных натуральных чисел вывести суммы цифр каждого числа
Показать ответ
Ответ:
пипл4
20.08.2020 16:26
Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Milagrosrr
18.03.2022 19:58
Впараллели 7-х классов все мальчики записаны в спортивные секции,секции по футболу посещают 13 человек,секцию по волейболу посещают 16 человек.а секция по плаванию...
arinastl
26.12.2021 22:49
Петя и коля пишут друг другу электронные письма в кодировке кои-8. однажды петя ошибся и отправил письмо в кодировке windows. коля получил письмо и, как всегда, прочитал...
Behheheh
04.05.2023 10:28
В мобильном приложении дискорд, сверху пишет отключено и я не слышу друзей и они меня...
alexkiop76
18.10.2021 01:06
Какие услуги предоставляет служба телеконференций?...
gamzat370587
02.09.2020 02:06
Бжб 5 сынып 4 токсан комек керек...
cvvb
25.07.2022 23:58
По информатике задали собрать компьютер без использования игр. , я в этом вопросе полный !...
alesyshapiro
25.07.2022 23:58
Под () массива понимают перераспределение значений его элементов в некотором определенном порядке. 1 находка 2 сортировка 3 нормальный 4 запуск программы...
BinoKLI
24.10.2022 16:04
1.Синтаксические конструкции с союзом КАК (обособляются), т.е. выделяются запятыми (запятой), при сравнительных оборотах. Конструкция имеет значение явного уподобления,...
Misha211103
07.05.2021 12:04
От источника колебаний рас волна вдоль прямой линии. Амплитуда колебаний равна 10 см. Как велико смещение точки, удаленной от источника на x =3/4 λ, в момент, когда...
vladys4u
07.05.2021 12:04
1. Запишите промежутки возрастания функции. 2. Решите неравенство f (x) ≤ 0. 3. Запишите наибольшее и наименьшее значения функции....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.