Помогите пожалуйста написать эту программу с while!Напишите программку, которая в

Помогите пожалуйста написать эту программку с while!
Напишите программку, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а потом сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число количество чисел, кратных 3.

Задать свой вопрос
1 ответ
Var n,k,m,p: integer;
begin
  write('n = ');  readln(n);
  k:=0; p:=0;
  while klt;n do
  begin
    read(m);
    if m mod 3 = 0 then p:=p+1;
    k:=k+1;
  end;
  writeln('количество чисел, кратных 3: ',p);
end.

n = 6
10 -13 14 -15 21 23
количество чисел, кратных 3: 2

Руслан Хомыльков
Можно спросить ,а что такое p?
Амина Кордичева
p - это переменная для подсчета количества чисел, делящихся на 3.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт