Pascal

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

Question

Галина

28 июля, 21:53

+4

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