ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУНапишите программу, которая в последовательности

ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ Программку
Напишите программу, которая в последовательности естественных чисел определяет количество чисел, кратных 3. Программка получает на вход количество чисел в последовательности, а потом сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превосходит 1000. Введённые числа не превосходят 30 000. Программа обязана вывести одно число количество чисел, кратных 3.

Задать свой вопрос
1 ответ
Var x,n,k:integer; 
begin 
k:=0; 
writeln('Введите количество чисел в последовательности'); 
readln(n); 
writeln('Введите числа'); 
while ngt;0 do begin 
readln(x); 
if x mod 3=0 then k:=k+1; 
n:=n-1; 
end; 
writeln('Количество чисел четных 3 = ',k); 
end.
Jurok Ruslov
Введите количество чисел в последовательности3Введите числа12-1210Количество чисел четных 3 = 2
Кристина Лескес
такой же ответ обязан получиться?
Albina
Да, все правильно. В этой последовательности всего только 2 числа кратных трем это -12 и 12
Алена Степонович
спасибо громадное)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт