тут же примитив:
1)writeln [введите...]
readln(x)
if x=1703 then writeln...вы правы..
else writeln...ты не прав.
2) здесь не сложнее
цикл по х[i] если х[i]>0 and x[i]/2 без остатка,then s+x[i];
i:=i+1;
n:=n+1;
коряво,но суть такова, а для большей точности и правильного синтаксиса
Цитата:
|
Почитайте книжку, говорят помогает
|
что и ко мне относится 
