2+4+6+8
Program P1 ;
var i,n,s : integer ;
begin
write( 'n=' ) ; readln( n ) ;
s : =0 ;
for i : = 1 to n do
if (i mod 2=0 ) then
s: =s+ i ;
writeln('s=' ,s );
readln ;
end.
Присоединяйтесь — мы покажем вам много интересного
Присоединяйтесь к ОК, чтобы подписаться на группу и комментировать публикации.
Комментарии 3
Program P1 ;
var i,n,s : integer ;
begin
write( 'n=' ) ; readln( n ) ;
s : =0 ;
for i : = 1 to n do
if (i mod 2=0 ) then
s: =s+ i ;
writeln('s=' ,s );
readln ;
end.