Задание:
Помогите пожалуйста хоть с одним мне завтра сдавать… 1) Определить в программе равен ли квадрат заданного двузначного числа, числу 5002) Даны два числа x,y не равные друг другу. Меньшее из чисел заменить половиной их суммы, а большее их произведением.
Решение:
Если на паскале, то здесь напишу решения. Могу еще на си, пишите, если понадобится.1) var x: integer; beginwrite ("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"); readlnend.2) var x,y,sum,pr: integer; beginwrite ("vvedite chisla: "); read (x,y); if (x=y) then write ("Chisla vvedeny neverno"); sum: =(x+y) /2; pr: =x*y; if (x>y) then beginx: =pr; y: =sum; end; else beginx: =sum; y: =pr; writeln ("x=",x,", y=",y); readlnend.4) var kv,sum: longint; i: byte; beginfor i: =10 to 20 dobeginkv: =sqr (i); writeln ("kvadrat ",i," raven ",kv); sum: =sum+kv; end; writeln ("summa kvadratov ravna ",sum); readlnend. Третью лень решать, если честно (с координатами не люблю возиться). Но вам вроде как не все надо)
Знаете другой ответ?