Помогите пожалуйста хоть с одним мне завтра сдавать...

1)Определить в программе равен ли квадрат заданного двузначного числа , числу 500

2)Даны два числа x,y не равные друг другу . Меньшее из чисел заменить половиной их суммы , а большее их произведением.

3)Даны две точки с кординатами x_{1} , y_{1} , x_{2} , y_{2} .Составить программу определяющую какая из этих точек ближе к центру

4)Даны натуральные числа от 10 до 20 . Найдите их квадрат и сумму всех квадратов.

1

Ответы и объяснения

Лучший Ответ!
2012-09-26T23:36:49+04:00

если на паскале, то здесь напишу решения. могу еще на си, пишите, если понадобится.

1)

var x:integer;

begin

write("vvedite chislo: ");

readln(x);

if (x<10)or(x>99) then write("Nevernoe chislo");

x:=sqr(x);

if (x=500) then write("ravno") else write("ne ravno");

readln

end.

2)

var x,y,sum,pr:integer;

begin

write("vvedite chisla: ");

read(x,y);

if (x=y) then write("Chisla vvedeny neverno");

sum:=(x+y)/2;

pr:=x*y;

if (x>y) then begin

x:=pr;

y:=sum;

end;

else begin

x:=sum;

y:=pr;

writeln("x=",x,", y=",y);

readln

end.

4)

var kv,sum:longint;

i:byte;

begin

for i:=10 to 20 do

begin

kv:=sqr(i);

writeln("kvadrat ",i," raven ",kv);

sum:=sum+kv;

end;

writeln("summa kvadratov ravna ",sum);

readln

end.

третью лень решать, если честно(с координатами не люблю возиться). но вам вроде как не все надо)