Question

составьте программу на паскале, где надо найти сумму всех чётных чисел от 20 до 40

Answer 1

Ответ:

var i,s:integer;

begin

s:=0;

for i:=20 to 40 do

if i mod 2=0 then s:=s+i;

write(s)

end.

Answer 2

На языке PascalAВC.NET в одну строчку:

## Range(20,40,2).Sum.Print // результат 330