Помогите составить программу, вычисляющую сумму чисел от 1 до 256, кратных 13.

1

Ответы и объяснения

  • ali07
  • главный мозг
2014-02-23T20:42:49+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Программа на Паскале
program xxx;
var i,s : integer;
begin
s:=0;
for i:=1 to n do
 if i mod 13 = 0 then s := s + i;
write('сумма чисел кратных 13 =', s)
end.