Даны три действительных числа возвести в квадрат - вопрос №16952044 от главныймозг74 02.02.2023 14:23

Question

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

главныймозг74 · 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)напишите программу