Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите найти сумму чисел от 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.