Сумма всех чётных чисел от 1 до n с клавиатуры паскаль

Question

Информатика: Сумма всех чётных чисел от 1 до n с клавиатуры паскаль

Krowly · Answer

program summa;var i,a,n,sum:integer;beginwriteln( Введите n );read(n);sum:=0;for i:=1 to n do  begin   read(a);   if (a mod 2=0) then sum:=sum+a;  end;writeln( Cумма всех четных чисел = ,sum);end....

Сумма всех чётных чисел от 1 до n с клавиатуры паскаль

Популярные вопросы