Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания Входные данные: -7,14,84,0 ...
Составить программу, которая в последовательности целых чисел находит сумму чисел кратных 7 в диапозоне от 6 до 80. Программа получает на вход целые числа, кол-во не известно, 0-признак окончания Входные данные: -7,14,84,0 Составить по Паскалю
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы