Спо паскалю! (p.s. мы только начали цикл while) организован ввод чисел оканчивающихся нулём. посчитать сумму и количество чисел делящихся на a.

Кисик1705 Кисик1705    3   25.08.2019 03:50    3

Ответы
1castiel03 1castiel03  02.08.2020 23:14
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика