Составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю
Составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю
Гость
Ответ(ы) на вопрос:
Гостьvar i,s:integer; begin s:=0; for i:=20 to 60 do if i mod 5 =0 then s:=s+i; writeln(s); end.
Гостьvar i,s:longint; begin for i:=20 to 60 do if i mod 5=0 then inc(s,i); writeln(s); end.
Не нашли ответ?
Похожие вопросы