Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Математика,
автор: mikosarsenbay
Предмет: Литература,
автор: galina19840701
Предмет: Литература,
автор: victor200869
Предмет: Геометрия,
автор: NIJKO