Составить программу выводящую на экран сумму всех чётных чисел в промежутке от 12 до 30
Составить программу выводящую на экран сумму всех чётных чисел в промежутке от 12 до 30
Гость
Ответ(ы) на вопрос:
Гостьvar sum,i:longint; begin sum:=0; for i:=10 to 30 do if i mod 2=0 then sum:=sum+i; write(sum); end;
Не нашли ответ?
Похожие вопросы