Помогите очень нужно) Имеются переменые x,y,z для положительных чисел вывести удвоеное...

Question

Помогите очень нужно)
Имеются переменые x,y,z для положительных чисел вывести удвоеное произведение для отрицательных в квадрат

Comments

Т.е. даны три числа и если положительное то вывести удвоеное произведение ,если отрицательно то в квадрат?

---

да

---

Паскаль?

---

угу

Answer 1

Не совсем требования к программе понятны. Написал на ПаскальАВС.Нет с использованием функции

var x,y,z:integer;
function ex(x:integer):integer;
begin
if x>0 then result:=2*x
  else result:=x*x;
end;
begin
write('Введите x, y, z: ');
readln(x,y,z);
x:=ex(x);
y:=ex(y);
z:=ex(z);
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.

Вариант без использования функции
var x,y,z:integer;
begin
write('Введите x, y, z: ');
readln(x,y,z);
if x>0 then x:=2*x 
  else x:=x*x;
if y>0 then y:=2*y
  else y:=y*y;
if z>0 then z:=2*z 
  else z:=z*z;
writeln('Новые значения: ',x,'; ',y,'; ',z);
end.

Comments

арасо))))

---

Хахааох!!! Я подумал, ты мне еще одно корейское слово написала, потом дошло))))))

---

даа это корейское слово

---

арасо-хорошо)

---

так вот

---

Серьезно? Прикалываешься!))

---

нет правда многие песни знаю где это слово упоминается)

---

и переводится так

---

Офигеть!))

---

Айдол – красна девица

Йогурт - Данон. Да, другие фирмы-производители неизвестны к-поперам. Йогурт - это всегда Данон. При чем "ммм, Данон" - произносится со сладострастным прищуриванием и чуть постанывая.

Князь - ВНИМАНИЕ! Никогда, ни при каких условиях не путать с титулом Царь. Узна