Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. программа получает на вход целые числа, кол-во не известно, 0-признак окончания входные данные: -7,14,84,0 составить по паскалю
Волна1610
1
19.05.2019 21:10
1
Другие вопросы по теме Информатика
diana6k3
08.09.2019 21:00
MrEvgeniy1
08.09.2019 21:00
axaz227
08.09.2019 21:00
elenavalkova92
08.09.2019 21:00
SofiZ2005
31.12.2020 08:52
Leshik1997
31.12.2020 06:56
M5063
31.12.2020 06:46
EvkShaih
07.12.2021 13:59
Lana8254
16.09.2019 07:40
Популярные вопросы
- Жуть, путь, ртуть склоняются одинаково...
2 - Каким реагентом узнать раствар сульфата калия 1012dimaminov...
3 - Вы осуждаете или оправдываете лизавету ивановну?...
2 - Визначити б творення слів: напарник(збираючись у дорогу,добре вибирай...
1 - 1) найдите наибольшее значение функции при каких значениях оно достигается?...
2 - Угадайте корень уравнения 26-x умнженное на x =1 и выполните проверку...
2 - Царство прокариоты делится на подцарства : а)архебактерии б )настоящие...
2 - Какие формы правления существовали в россии в следующие годы: 1990...
2 - 5класс перескажите библейскиепередания о самсоне и далиле о довиде...
3 - Уяких країнах поширювалося лютеранство...
3
programm p;
var
a:array[1..100 ] of integer;
i,n:integer;
s:integer;
begin
readln n;
for i:=1 to n do
readln(a[i]);
s:=0;
for i:=1 to n do
begin
if (a[i]>5)and(a[i]<81)and(a[i]/7=int a[i]/7) then
s:=s+a[i];
if a[i]= 0 then break;
end;
writeln(s);
end.