3. напишите и выполните программу на компьютере a. программа вводит одно число, и вычисляет его квадрат, вычитая из него удвоенное значение введенного числа. b. программа вводит два числа, выводит сумму квадратов этих чисел минус их произведение. c. программа вводит два числа, выводит сумму их модулей (см. функцию abs)

1. #include #include using namespace std; int main (){ int a; cout < < "введите число: " < < endl; cin > > a; cout < < pow(a,2) - 2*a < < endl; } 2. #include #include using namespace std; int main (){ int a, b; cout < < "введите два числа: " < < endl; cin > > a > > b; cout < < pow(a,2) + pow(b,*b); } 3. #include #include using namespace std; int main (){ int a, b; cout < < "введите два числа: " < < endl; cin > > a > > b; cout < < "молуль первого числа: " < < abs(a) < < endl < < "модуль второго числа: " < < abs(b) < < endl; }

(63+12): 3=25

(39-18)*4=84

750-12: 3=746

420+9*6=474

1)

var

a,b: array [1..100] of integer;

i,j,k,a,b,f: integer;

begin

randomize;

readln(a);

readln(b);

k: =0;

for i: =1 to 20 do

begin

a[i]: =random(135)-45;

f: =0;

for j: =a to b do

if (a[i]=j) and (a[i] mod 7 =0) then f: =1;

if f=0 then

begin

k: =k+1;

b[k]: =a[i];

end;

end;

for i: =1 to k do

writeln(b[i]);

end.

2)

var

a,b: array [1..100] of integer;

i,j,k: integer;

begin

randomize;

readln(k);

j: =0;

for i: =1 to 20 do

begin

a[i]: =random(135)-45;

writeln(a[i]);

for i: =1 to 19 do

begin

if a[i]*a[i+1]> 0 then

begin

j: =j+1;

b[j]: =a[i];

j: =j+1;

b[j]: =k;

end

else

begin

j: =j+1;

b[j]: =a[i];

end;

end;

j: =j+1;

b[j]: =a[20];

for i: =1 to j do

writeln(b[j]);

 

3)

var

a,b: array [1..20] of integer;

i,j,k1,k2: integer;

begin

randomize;

readln(k1);

readln(k2);

if k1< k2 then

begin

for i: =1 to 20 do

begin

a[i]: =random(135)-45;

writeln(a[i]);

end;

for i: =1 to k1-1 do

b[i]: =a[i];

for i: =k2+1 to 20 do

b[i]: =a[i];

j: =k2;

for i: =k1 to k2 do

begin

b[j]: =a[i];

j: =j-1;

end;

for i: =1 to 20 do

writeln(b[i]);

end;

end.