>

C клавиатуры вводятся натуральные числа. Последовательность заканчивается 0. Определить количество

C клавиатуры вводятся натуральные числа. Последовательность заканчивается 0. Определить количество чисел, которые начинаются на 4 и делятся на 6
Помогите, пожалуйста, с программой (язык Паскаль)
Категория: Информатика 3 года назад
На вопрос 3 года назад
Sveta Smotrich
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
Ответ получен 3 года назад
ПОЛИНА ПОСТНИКОВА

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт