Предмет: Информатика,
автор: narkotlo1
Составить программы вычесления суммы чисел 7 до 700 кратных 14
Ответы
Автор ответа:
1
var sum:integer;
begin
for var i:=7 to 700 do
if (i mod 14 =0) then sum:=sum+i;
println(sum);
end.
begin
for var i:=7 to 700 do
if (i mod 14 =0) then sum:=sum+i;
println(sum);
end.
narkotlo1:
А можно не встрочку ? А прям как в паскале что бы было
обновите
Интересные вопросы
Предмет: Химия,
автор: margoshalife39
Предмет: Алгебра,
автор: sergeevasa167
Предмет: Геометрия,
автор: churyka
Предмет: Математика,
автор: кристина553
Предмет: Геометрия,
автор: Freank