Даны три действительных числа возвести в квадрат - вопрос №16951701 от 2006zahar2006 29.01.2021 05:31

Question

Информатика: Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу​

2006zahar2006 · Answer

var a, b, c: real; begin  readln(a, b, c);  if (a 0) then    a:=(power (a,2));  if (b 0) then    b:=(power(b,2));  if (c 0) then    c:=(power(c,2));  writeln(a, , b, , c);end....

Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу​

Даны три действительных числа возвести в квадрат те из них, значения которых отрицательны. неотрицательные оставить без изменения(Pascal)напишите программу