Вводится последовательность чисел, признак конца ввода, ввод числа 0. Найти сумму чисел не кратных 7. SOS
Вводится последовательность чисел, признак конца ввода, ввод числа 0.
Найти сумму чисел не кратных 7.
SOS
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
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.
Не нашли ответ?
Похожие вопросы