Найти сумму чисел, кратных трем в диапазоне от 0 до 50
Найти сумму чисел, кратных трем в диапазоне от 0 до 50
Гость
Ответ(ы) на вопрос:
Гостьvar k,sum:integer;
begin
sum:=0;
for k:=0 to 50 do
if(k mod 3 =0) then sum:=sum+k;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы