Информатика, опубликовано 2018-08-22 23:13:59 by Гость
Помогите найти сумму чисел от 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.