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

Question

Информатика

Луизка

28 ноября, 14:30

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

+3

Ответы (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.