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

177

410

Посмотреть ответы 2

Ответы на вопрос:

borik7777

Информатика

4,6(44 оценок)

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.