Вводится последовательность чисел, признак конца ввода, ввод числа 0. найти сумму чисел не кратных 7. sos
tanya260516
1
21.08.2019 02:30
0
Другие вопросы по теме Информатика
Jackichan89
06.08.2019 23:10
ksenia0070
06.08.2019 23:10
машазайка1
09.09.2019 03:50
sbabean219
21.06.2019 11:00
Qkoddk
21.06.2019 11:00
gal12
21.06.2019 11:00
жук234
22.06.2019 09:40
Испан1
03.02.2020 00:15
Популярные вопросы
- Мәтіндегі аталған ел, тайпа, жер-су атаулары жөнінде білетіндеріңді айтыңдар....
1 - 19A. Прочитай текст-описание. Укажи части описания. Какие прила- гательные, существительные...
3 - Напишите предложения по фото используя эти словаthis that these those board chair...
2 - 4.Put the verbs into the Present Simple/ Present Continuous / Past Sim 1. She...
1 - Раскройте скобки и приведите подобные слагаемые 2)1,4(а-2)-(6-2а)С объяснением...
3 - Русский язык семья для ребенка...
1 - Придумайте предложение со словами-уйлен, намыс, еркеле тербиеле, жауапкершилик...
3 - математика 9 класс Любое из этого...
1 - 6- тапсырма. Өлең мәтініндегі қою қаріппен жазылған сөздерді дәптеріңе жаз. Олардың...
2 - • Infinitive me forms er the theory and say the examples in your lang • Tenses...
3
var sum,a: integer;
begin
sum:=0;
while true do
begin
readln(a);
if(a mod 7<>0) then sum:=sum+a;
if(a=0) then break;
end;
writeln(sum);
end.