f-d-a-14
?>

Даны 3 действительных числа. возвести в квадрат и напечатать те из них, значения которых неотрицательны. если таковых нет, то напечатать сообщение. с++

Информатика

Ответы

manu95957
Using namespace std; int main () { setconsoleoutputcp(1251); cout< < "введите три числа"< < endl; int a,b,c; cin> > a> > b> > c; if ( (a< 0) & & (b< 0) & & (c< 0))     {     cout< < "неотрицательных чисел нет"< < endl;     system("pause");     return 0; // дальше не выполняем, чтобы не тратить силы впустую     } if (a> 0)     cout< < a*a< < endl; if (b> 0)     cout< < b*b< < endl; if (c> 0)     cout< < c*c< < endl; system("pause"); return 0; }
shneider1969
Var a: array[1..1000,1..1000] of integer; m,n,min,max: integer; begin write('m(1..1000) = '); readln(m); write('n(1..1000) = '); readln(n); for var i: = 1 to m do       begin       for var j: = 1 to n do               begin               a[i,j]: =random(1,m*n);               write(a[i,j],' ')               end;       writeln;       end; min: =a[m,n]; max: =a[m,n]; for var i: = 1 to m do       for var j: = 1 to n do               begin               if min> a[i,j] then min: =a[i,j];               if max< a[i,j] then max: =a[i,j]               end; writeln('min(a) / max(a) = ',min/max); end. пример: m(1..1000) = 3 n(1..1000) = 3 6 9 6 4 5 3 1 9 7 min(a) / max(a) = 0.111111111111111
grenysherg2873
// pascalabc.net 3.2, сборка 1399 от 08.03.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.rows.selectmany(x-> x);   writeln('отношение min/max равно ',s.min/s.max: 0: 4) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   -38 -26 -68 -48  79 -61 -25 -97   26 -81 -67 -49  22 -15  45 -75   92  93 -59  -4 -21  91 -36  19   -65 -36 -18  -1 -12    8 -91 -29   -28 -33 -41  85 -94 -15 -33  69 отношение min/max равно -1.0430

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Даны 3 действительных числа. возвести в квадрат и напечатать те из них, значения которых неотрицательны. если таковых нет, то напечатать сообщение. с++
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Абубакр_Будаш
zaravshan20134
kuharhuks
Veronika1270
cat2572066
shef3009
Buninilya
Kornilova
ganorussia
Ioanova Korneeva1093
myxa120283
shurshin6975
MonashevFesenko1483
yusliva
e90969692976