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

Question

Информатика

Евдуша

26 января, 01:25

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

+5

Ответы (1)

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

Евтихий · Answer 1

Program dz2;

Var i:byte;

s:integer;

Begin

S:=0;

For i: = 10 to 99 do

If i mod 3=0 then

S:=s+i;

Writeln ('Сумма двухзначных чисел кратных 3 = ', s) ;

End.

//Подходит?