1. Составьте программу, которая запрашивает с клавиатуры значения x и y. Если x>y то печатается разность x-y, в противном случае y-x.

2. Напишите программу, которая запрашивает с клавиатуры a, b, c. Если a>b+c, то на печать выводится a. В другом случае выводится b+c.

3. Напишите программу, которая запрашивает с клавиатуры значения k и x. Если k=1, то вычисляется значение sin(x), если k=2, то вычисляется значение cos(x).

4. Напишите программу, которая запрашивает значения p и m. Если p>m2 , то печатается p, в противном случае m2.
СДЕЛАЙТЕ В ПАСКАЛЕ)
И МОЖЕТЕ МЕНЯ НАУЧИТЬ ?

 

 

//Pascal//1)var x, y: integer;beginwrite('Введите x y: ');read(x, y);if x > y then writeln(x - y)else writeln(y - x);end.//2)var a, b, c: integer;beginwrite('Введите a b c: '); read(a, b, c);if (a > (b + c)) then writeln(a)else writeln(b + c);end.//3)var x, k: integer;beginwrite('Введите x k: '); read(x, k);if k = 1 then writeln(sin(x))else if k = 2 then writeln(cos(x))elsewriteln('k должен быть равен 1 или 2.');end.//4)var p, m: integer;begin  write('Введите p, m: ');   read(p, m);  if p > m * 2 then     writeln(p)  else     writeln(m * 2);end.