2.
3(x-2)+2(4-x) = 3*(x-2)+2*(4-x)
4x^3-y^2 = 4*power(x,3)-sqr(x)
2a+b/3(b) = (2*a+b)/(3*sqrt(b))
3.
2(a-b) = 2*(a-b)
(a+b)(c+d) = (a+b)*(c+d)
2(c)/c-2d = (2*sqrt(c))/c-2*d
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
Экран дисплея. Ну нпр картинка выводится на экране.
Ответ: В
//Среда Паскаль
Uses crt;
var
a, b, c, d, e: integer;
begin
writeln ('Введите числа');
readln(a,b,c,d,e);
if (a mod 2)=0 then writeln ('Ошибка ввода') else
if (b mod 2)=0 then writeln ('Ошибка ввода') else
If (c mod 2)=0 then writeln ('Ошибка ввода ') else
If (d mod 2)=0 then writeln (' Ошибка ввода ') else
If (e mod 2)=0 then writeln (' Ошибка ввода ') else
Writeln ((a+b+c+d+e) /5);
End.