Ответ: //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.
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.
СДЕЛАЙТЕ В ПАСКАЛЕ)
И МОЖЕТЕ МЕНЯ НАУЧИТЬ ?
— Правильный ответ на вопрос найдете ниже
25.01.2020 · 1