Даны четыре числа , если они задыне в порядке возрастания (1,2,3,4) то каждое возвести в...

Question

Даны четыре числа , если они задыне в порядке возрастания (1,2,3,4) то каждое возвести в квадрат, иначе найти их полусумму

Comments

на каком языке писать???

---

на английском

---

То есть, Вам на Коболе программу написать? Ил всё же Вам нужно что-то из этого: Pascal, Basic, КуМир

---

а может быть C++ или python

---

Pascal

Answer 1

Program ch;
var x1,x2,x3,x4,i:integer;
begin
writeln('введите 4 числа');
readln(x1,x2,x3,x4);
if (x1 < x2) and (x2 < x3) and (x3 < x4) then
begin
x1:=sqr(x1);
writeln('квадрат для x1 = ', x1);
x2:=sqr(x2);
writeln('квадрат для x2 = ', x2);
x3:=sqr(x3);
writeln('квадрат для x3 = ', x3);
x4:=sqr(x4);
writeln('квадрат для x4 = ', x4);
end
else write('полусумма = ',(x1+x2+x3+x4)/2);
end.

Comments

можно было решать и циклом, но тогда нужен был бы массив

---

var
x1, x2, x3, x4: real;

begin
writeln('введите 4 числа ');
read(x1, x2, x3, x4);

if (x1 < x2) and (x2 < x3) and (x3 < x4) then
writeln('квадраты = ', sqr(x1), ' ', sqr(x2), ' ', sqr(x3), ' ', sqr(x4))
else writeln('полусумма = ', (x1 + x2 + x3 + x4) / 2);
end.