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

0 голосов
42 просмотров

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


Информатика (83 баллов) | 42 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Программа на Паскале
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.

(52.1k баллов)