Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
batkia228
21.09.2021 03:28 •
Информатика
Найти сумму целого числа больше 5 в паскале. заранее ))
Показать ответ
Ответ:
dashavasileva5
27.06.2020 11:08
Программу из комментариев переписал для паскаля.
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
46788643
11.02.2020 11:13
3. даны три целых числа. определить,сумма цифр которого из них больше. подсчет суммы цифр организовать через подрограмму. 4. определить площадь выпуклого четырехугольника...
krisrinanovokr
18.04.2022 06:22
Из массива а в массив в переписать все элементы, оканчивающиеся на 3, 7 или 9....
Даня0987853339
01.06.2023 21:45
Какие вы знаете основные параметры редактора формул? Word...
Vikzza
21.05.2020 21:36
Треба відшукати помилки і написати правильно, до іть !! 1) Дано два цілих числа а і b (a≤b). Введіть усі числа від а до b включно. a=int(input( Введіть перше число...
akiceijuro
01.08.2022 13:27
соч по информатики 7 класс 3 четверть...
Алёнка12082004
12.12.2022 05:53
Типы данных - А) это инструкция, которую должен выполнить Python Б) ставящее в соответствие одному или нескольким элементам множества (аргументам) другой элемент...
LikaKotik666
18.01.2022 03:47
найдите изоброжения следующих выдающихся личностей: и создай три слайда 1)Абай Кунанбаев 2)Абылай хан 3)ТонкарАубакиров...
dndwp0a748
17.07.2021 08:36
Язык программирования это...
kopilovaolga
04.05.2020 10:50
Контрольная работа по информатике 10 класс...
polinaguskova
23.06.2021 02:00
2. Запиши математическое выражение, соответствующее записи на Python ( ): 1) (p+k*8)/(5*t)-36*p*k/(3-9*b) 3) ( x**2-y**4)-(x**7-14)2) abs(24*x)+(3-7x)/12*y 4) abs(9+x)+x**5/y**4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var x,s:integer;
begin
read(x);
x:=abs(x);
s:=0;
while x>0 do begin
if x mod 10>5 then s:=s+x mod 10;
x:=x div 10
end;
write(s)
end.