Предмет: Информатика,
автор: dememchukova
Помогите составить программу, вычисляющую сумму чисел от 1 до 256, кратных 13.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Химия,
автор: azamat7535
Предмет: Литература,
автор: axaxa0axaxa
Предмет: Математика,
автор: vinaevasofa
Предмет: География,
автор: 20021114257
Предмет: Обществознание,
автор: shabubu