Ответ на вопрос: АниЛорак
Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.
1)ноутбук
5)компьютер
А у вас точно нет опечаток в задании?
Просто у меня есть предположение, что во втором должны быть буквы дмемо, и тогда полученное слово будет "модем"
Также и с третьим - если буквы шмыь, то полученное слово - "мышь"
Var
a, b, c: integer;
begin
readln(a, b, c); //вводим a b c
if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a
else
writeln(a); //иначе вывести a
if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b
else
writeln(b); //иначе вывести b
if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c
else
writeln(c); //иначе вывести c
<span>end.</span>