ЛЮДИ! ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА В ПРОГРАММЕ ПАСКАЛЬ!
Приложения:
Ответы на вопрос
Ответил Студэнt
0
//прога на 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.
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.
Ответил horoshistka2
0
Спасибо!
Новые вопросы
Українська мова,
2 года назад
Русский язык,
2 года назад
История,
8 лет назад
География,
8 лет назад