Pascal

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

Question

Таня

15 ноября, 03:49

+2

Ответы (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Найти сумму всех двухзначных чисел, которые кратны трём.