13. Даны два числа. Если больше второго, то замените его их разностью, в противном случае - суммой. Второе число не изменять.
14. Составьте программу для вычисления значений функции:
y={x^2, если x > 0; -x, если х < 0
14. Составьте программу для вычисления значений функции:
y={x^2, если x > 0; -x, если х < 0
Ответ
5
(1 оценка)
0
ЯковПервый
1 год назад
Светило науки - 1481 ответ - 2463 помощи
Задача 13:
program prog13;
var
a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if (a > b) then
a := a - b
else
a := a + b;
writeln();
writeln('results');
writeln('a = ', a);
writeln('b = ', b);
end.
-----------------------------------------------------
Задача 14:
program prog14;
var
x, y: integer;
begin
write('x = ');
readln(x);
if (x > 0) then
y := x * x;
if (x < 0) then
y := -x;
writeln();
writeln('results');
writeln('x = ', x);
writeln('y = ', y);
end.
какой язык?