Вопрос по информатике:
C клавиатуры вводятся натуральные числа. Последовательность заканчивается 0. Определить количество чисел, которые начинаются на 4 и делятся на 6
Помогите, пожалуйста, с программой (язык Паскаль)
- 02.02.2018 10:43
- Информатика
- remove_red_eye 5344
- thumb_up 42
Ответы и объяснения 1
Var n,m,k: integer;
begin
m:=0;
k:=0; write('числа через пробел: ');
read(n);
repeat
m:=n;
repeat
m:=m div 10;
until m<10;
if (m=4) and ((n mod 6) = 0) then k:=k+1;
read(n);
until n=0;
writeln('количество чисел = ',k);
end.
Результат работы: числа через пробел: 42 432 438 156 478 0
количество чисел = 3
- 03.02.2018 01:18
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.