ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ! (P.S. мы только начали цикл while) Организован...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ!
(P.S. мы только начали цикл while)
Организован ввод чисел оканчивающихся нулём. Посчитать сумму и количество чисел делящихся на A.

Answer 1

Var
S:real;
A,C,N:integer;
Begin
N:=0;
S:=0;
Write('A = ');ReadLn(A);
WriteLn('Введите последоваельность чисел:');
Read(C);
While C <> 0 do
   Begin
   if C mod A = 0 then
      Begin
      S:=S+C;
      N:=N+1;
      End;
   Read(C)
   End;
WriteLn('S = ',S);
WriteLn('N = ',N);
End.

Comments

А в конце разве не надо выводить количество? в задаче два условия

---

Нужно, простите, сейчас исправлю

---

можно еще один вопрос, а что такое C ? для чего эта переменная?

---

В эту переменную каждый раз записывается введённое число

---

а без нее никак не решить?

---

Меньше переменных сделать нельзя

---

окей