ЛЮДИ! ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА В ПРОГРАММЕ ПАСКАЛЬ!
ЛЮДИ! ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА В ПРОГРАММЕ ПАСКАЛЬ!
Гость
Ответ(ы) на вопрос:
Гость//прога на Pascal`e
var
i, n: byte;
sum, a : longint;
begin
read (n);
for i:=1 to n do
begin
read (a);
if a mod 7 = 0 then inc (sum, a);
end;
write (sum);
end.
Не нашли ответ?
Похожие вопросы