Размер мишени для стрельбы задается координатам центра концентричных кругов (x,y) и соответственными радиусами Ri = 5i, где i=1,2...,10. Спортсмен сделал 3 контрольных выстрела. Координаты попаданий в мишень задаются соответственными парами чисел (xj,yj) ,где j= 1,2,3. Определить, сколько очков набрал спортсмен за данную серию выстрелов.
program Strelok;
var x,y,x1,y1,i,r,score: integer; begin score:=0; write('Введите координаты центра мишени'); readln(x,y); for i:=1 to 3 do begin write('Введите координаты попадания ',i,'-го выстрела'); readln(x1,y1); r:=trunc(sqrt(sqr(x-x1)+sqr(y-y1))); r:=50-((r-1) div 5)*5; writeln('Стрелок получает ',r,' очков'); score:=score+r; end; writeln('Стрелок набрал ',score,' очков за 3 выстрела'); readln; end.