Ребята срочно напишите полную программу по информатике ** паскале,если завтра не сдам...

Question

Ребята срочно напишите полную программу по информатике на паскале,если завтра не сдам меня просто четвертуют(
1)Найдите все значения натуральных чисел X,Y,Z из интервала от 1 до 10,удовлетворяющих равенству: x^2+y^2=z^2
2)вычислите количество точек с целочисленными координатами,попадающих в круг R(R>0) с центром в начале координат.
3)Старинная задача. Сколько можно купить быков,коров и телят на 100р,если в сумме должно быть куплено 100 голов скота,а цена быка-10р,цена коровы-5р,цена теленка-0,5р ???? Пожалуйста помогите !!!!

Answer 1

1)
var
  x,y,z:integer;
begin
 for x:=1 to 10 do
  for y:=1 to 10 do
   for z:=1 to 10 do
  if sqr(x)+sqr(y)=sqr(z) then
  writeln('X= ',x,' Y= ',y,' Z= ',z);
end.
2)
var
  x,y,k,R:integer;
begin
 write('Введите радиус: ');
readln(R);
 k:=0;
 if R>0 then
 begin
 for x:=-R to R do
  for y:=-R to R do
  if sqr(x)+sqr(y)<=sqr(R) then k:=k+1; write('Количество целых точек: ',k);<br> end    else
write('Радиус должен быть положительным!');
end.