Предмет: Информатика,
автор: Ленивец575
Напишите программу по 2,3и4 задание.HEIP!!!
Приложения:

Ответы
Автор ответа:
0
var
a, b: integer;
x, y, z, t: integer;
begin
{2}
Readln(a);
Writeln(Sign(a) * abs(a + 3));
{3}
Readln(a, b);
if a > b then a := b;
Writeln(a);
{4}
Readln(x, y, z);
if (x > y) and (y > z) then t := 5
else t := -1;
x := x * t;
y := y * t;
z := z * t;
Writeln(x, ' ', y, ' ', z)
end.
a, b: integer;
x, y, z, t: integer;
begin
{2}
Readln(a);
Writeln(Sign(a) * abs(a + 3));
{3}
Readln(a, b);
if a > b then a := b;
Writeln(a);
{4}
Readln(x, y, z);
if (x > y) and (y > z) then t := 5
else t := -1;
x := x * t;
y := y * t;
z := z * t;
Writeln(x, ' ', y, ' ', z)
end.
Похожие вопросы
Предмет: Математика,
автор: mariasinicyna29
Предмет: Математика,
автор: Lqdqiaq
Предмет: Литература,
автор: ekaterinasergeevna06
Предмет: Алгебра,
автор: tcacenco1231
Предмет: Алгебра,
автор: sveta20033