Вопрос по информатике:
Даны четыре натуральных числа. Просуммировать те из них, которые не содержат цифру 5
- 03.03.2018 16:31
- Информатика
- remove_red_eye 17650
- thumb_up 32
Ответы и объяснения 1
Х)
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.
- 05.03.2018 00:32
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.