Пожалуйста помогите! Напишите программу, которая в последовательности целых чисел...

Question

Пожалуйста помогите!
Напишите программу, которая в последовательности целых чисел определяет число отрицательных трехзначных чисел, кратных 3 и оканчивающихся на 6.
программа должна вывести одно число - число отрицательное трехзначных чисел кратных 6 и оканчивающихся на 3.
Признаком конца ввода чисел - ввод 0.
Пример работы программы:
Входные данные Выходные данные
-186 1
-36
36
186
0

Comments

Сколько чисел в последовательности?

---

Входные данные

---

Входные данные -186, -36, 36, 186, 0, выходные данные только 1

Answer 1

Var
   A,k:integer;
Begin
k:=0;
Read(A);
While A<>0 do
   Begin
   Read(A);
   if (A<-99)and(A>-1000)and(A mod 3 = 0)and(A mod 10 = -6) then
      k:=k+1;
   End;
WriteLn(k);
End.

Comments

На что можно заменить repead...until ?

---

Цикл repeat можно заменить на while

---

Спасибо

---

Переделать программу ?

---

Var a, k:integer;
Begin
k:=0;
while k<>0 do
Read(a);
if (A>99)and(A<1000)and(A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = -6)) then<br> k:=k+1;
a = 0;
Writeln(k);
End.

---

Где-то ошибка

---

Обновите страницу

---

Исправил программу.

---

Спасибо!

Answer 2

#include
#include
using namespace std;
int main() {
 int a, c = 0;
 for(cin>>a; a!=0;
   c+=(a<0 && !abs(a/1000) && abs(a/100) && !abs(a%3) && abs(a%10)==6),<br>   cin >> a);
cout << c << endl;

Comments

Ого, это слишком сложно, но если этот ответ правильный, то ты гений.

---

несложно и ничуть не отличается от ответа выше)

---

Я новичок в этом