Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vaniaslavioglo
11.01.2022 19:17 •
Информатика
Даны четыре натуральных числа. просуммировать те из них, которые не содержат цифру 5
Показать ответ
Ответ:
GoRussia228
02.10.2020 00:24
Х)
var
i, k, b, a, sum: integer;
begin
for i := 1 to 4 do
begin
readln(a);
b := a;
k := a;
while (b > 0) do
begin
if (b mod 10 = 5) then
begin
k := 0;
end;
b := b div 10;
end;
sum := sum + k;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lolologhka
06.07.2022 07:29
2) Составьте алгоритм ( блок-схему) и программу с применением оператора Input нахождения периметра ( P) и площади (S) комнаты, если ширина (y) и длина (x) комнаты...
vlr2019
22.07.2021 22:36
Для записи текста использовался 128-символьный алфавит. Какой объем информации в байтах содержат 13 страниц текста, если на каждой странице расположено 32 строки...
пропин
06.02.2020 22:12
решить тест по информатике...
эрика96
10.12.2022 07:46
Найдите информационный объём сообщения в кб,если в сообщении х-страниц,у-строк и z-символов в строке.алфавит состоит из n символов...
Lizkic
20.12.2021 03:55
Рассмотри схему! Выполни необходимые вычисления и заполни таблицу! При необходимости округли ответ до десятых!...
weelrockster
20.12.2021 03:55
Правознацтво 9 класс філіпенко сутковий §18 І і ІІ завдання...
Ipgt
17.08.2020 20:40
Залізо з єднується з сіркою у масовому співвідношенні 7:4. Обчисли маси вихідних речовин, які потрібно взяти для отримання 22 г сульфіду заліза . Відповідь маса...
Знайка50000000
01.05.2023 06:59
Практична робота 7 Позначення на контурній карті назв найбільших річок України Позначте на контурній карті України річки: • Дніпро: праві притоки — Прип ять, Тетерів,...
adel1288
01.05.2023 06:59
Преобразуй в многочлен (b-2)(b+3)-(b-1)²...
KoshkaAnetty
01.05.2023 08:11
Період насиджування птахами яєць називають: а)нерестом б)шлюбною поведінкою в)лактацією г)інкубацією...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i, k, b, a, sum: integer;
begin
for i := 1 to 4 do
begin
readln(a);
b := a;
k := a;
while (b > 0) do
begin
if (b mod 10 = 5) then
begin
k := 0;
end;
b := b div 10;
end;
sum := sum + k;
end;
writeln(sum);
end.