Помогите найти сумму чисел от 10 до 99 кратных и 2 и 3 в Паскале ABC
Помогите найти сумму чисел от 10 до 99 кратных и 2 и 3 в Паскале ABC
Гость
Ответ(ы) на вопрос:
ГостьVar
i,sum:integer;
Begin
for i:= 10 to 99 do
if ((i mod 2) = 0) and ((i mod 3)=0) then sum:=sum+i;
write(sum);
End.
ГостьСначала стоит немного подумать над задачей, а не писать "в лоб".
Если число кратно 2 и одновременно 3, то оно кратно и их произведению, т.е. 2 х 3 = 6.
Ближайшее число, превышающее 10 и кратное 6 - это 12.
Начинаем от него и идем с шагом 6, пока не превысим 99.
1. Так можно решить по-современному:
// PascalABC.NET 3.1, сборка 1190 от 05.03.2016
begin
Writeln('Искомая сумма равна ',Range(12,99,6).Sum)
end.
Результат выполнения программы
Искомая сумма равна 810
2. А так - "по-школьному":
// PascalABC.NET 3.1, сборка 1190 от 05.03.2016
var
i,s:integer;
begin
i:=12;
s:=0;
while i<=99 do begin
s:=s+i;
i:=i+6
end;
Writeln('Искомая сумма равна ',s)
end.
Не нашли ответ?
Похожие вопросы