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

ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ! (P.S. мы только начали цикл while) Организован ввод чисел оканчивающихся нулём. Посчитать сумму и количество чисел делящихся на A.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы