Найти сумму двухзначных чисел кратным 3

Question

Информатика

Емельяна

21 сентября, 16:02

Найти сумму двухзначных чисел кратным 3

+2

Ответы (1)

Знаете ответ на вопрос?

Евстигней · Answer 1

Можно так:

var i: integer;

begin

for i:=10 to 99 do

if i mod 3=0 then write (i:3)

end.

Или вот так:

var i: integer;

begin

i:=3; while i<100 do

begin

write (i:3) ;

i:=i+3

end

end.