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