var S,i:int; begin clrscr; S:=0; for (i:=2; i<=10;i+2) S:=S+i;
writeln(S); Readln end.
128k сұрақ
322k жауап
153k пікір
72.6k қолданушы