Составить блок схему и программу нахождения суммы удвоенных четных чисел в интервале от 15 до 90
Составить блок схему и программу нахождения суммы удвоенных четных чисел в интервале от 15 до 90
Гость
Ответ(ы) на вопрос:
Гостьvar k,summa:integer; begin for k:= 15 to 90 do if k mod 2 =0 then summa:= summa + 2*k; writeln(summa); end.
Не нашли ответ?
Похожие вопросы