Question

Найти сумму двузначных,целых нечетных чисел кратных 3
Срочно!!!
По Паскалю.
Даю 30 балов

Answer 1

Ответ:

var i,s: integer;

begin

s:=0;

for i:=10 to 99 do

if (i mod 2 <> 0) and (i mod 3 = 0)

then s:=s+i;

write(s)

end.