Предмет: Информатика,
автор: narkotlo1
Составить программу вычисления произведения чисел от 1 до 500 кратных 13
Ответы
Автор ответа:
0
var sum,i:integer; beginfor i:=1 to 500 do if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.
farodis:
ой, sum:=sum*i будет
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: zasminasanova3
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: КириллТру
Предмет: Литература,
автор: МиленаВульф