Pascal

Найти сумму всех двухзначных чисел, которые кратны трём.

Question

Альбертина

29 августа, 22:08

+3

Ответы (2)

Знаете ответ?

Галата · Answer 1

Uses crt;

var, c, k:integer;

begin c:=0;

for k:=10 to 99 do

if (k mod 3=0) then c:=c+k;

write (c) ;

end.

Ириней · Answer 2

Uses crt;

var i, sum:integer;

begin

sum:=0;

for i:=10 to 99 do

if i mod 3=0 then sum:=sum+i;

writeln (sum) ;

end.

PascalНайти сумму всех двухзначных чисел, которые кратны трём.