Помогите найти сумму чисел от 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.
Не нашли ответ?
Похожие вопросы