С клавиатуры вводятся числа,0-конец ввода найти сумму кратных 3 и оканчивающихся на 7 Срочно плезз
С клавиатуры вводятся числа,0-конец ввода найти сумму кратных 3 и оканчивающихся на 7
Срочно плезз
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var sum,a: integer;
begin
readln(a);
sum:=0;
while a<>0 do
begin
if (a mod 3=0) and (a mod 10=7) then sum:=sum+a;
readln(a);
end;
write(sum);
end.
Не нашли ответ?
Похожие вопросы