Напишите программу, . даны два числа, не равные друг другу. замените большее из них молулем суммы, а меньшее-разностью квадратов этих чисел.

178

209

Посмотреть ответы 2

Ответы на вопрос:

Chelovek37153

Информатика

4,7(6 оценок)

Пусть x - первое число, а y - второе. var z,c: integer; z: = abs(x+y); c: = sqr(x) - 2*x*y + sqr(y); if (x> y) then x : = z; y : = c; else x: =c; y: = z; end; или, чтобы совсем круто с функциями: function minussqr(x, y: integer) : integer begin minussqr = sqr(x) - 2*x*y + sqr(y); end; if x> y then x : = minussqr(x,y) y : = abs(x + y) else y : = minussqr(x,y) x : = abs(x+y) end;

sailorproblema

Информатика

4,8(91 оценок)

Program zd; var mas: array [1..15] of integer; i: integer; beginrandomize; for i: =1 to 15 do beginmas[i]: =random (20)-10; end; for i: =1 to 15 do beginif mas[i] mod 2 = 0 then mas[i]: =mas[i] div 2; if mas[i] mod 2 = 1 then mas[i]: =mas[i]*3; end; for i: =1 to 15 do beginwriteln ('',mas[i]); end; end.