Предмет: Информатика,
автор: horoshistka2
ЛЮДИ! ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА В ПРОГРАММЕ ПАСКАЛЬ!
Приложения:
Ответы
Автор ответа:
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.
Автор ответа:
0
Спасибо!
Интересные вопросы
Предмет: Другие предметы,
автор: yungoff2021
Предмет: Алгебра,
автор: oxana19762612
Предмет: Информатика,
автор: coooi71
Предмет: Математика,
автор: диана1389