Напишите,, программу: даны целые числа а,в,с если а< =b< =c то все числа заменить кубами,если a> b> c ,то сменить знак у каждого.в противном случае заменить наимешьшим из них

238

387

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

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

Женёк2006457

Информатика

4,5(96 оценок)

program pr; uses crt; var a, b, c,x1,x2,x3: integer; beginwriteln('введите a, b, c'); readln(a, b, c); if (a< =b) and (b< =c) then begin a: =a*a*a; b: =b*b*b; c: =c*c*c; writeln(a); writeln(b); writeln(c); end; if (a> b) and (b> c) thenbegina: =a*(-1); b: =b*(-1); c: =c*(-1); writeln(a); writeln(b); writeln(c); end

elseif (a< b) and (a< c) then begin b: =a; c: =a; writeln(a); writeln(b); writeln(c); end; if (b< a) and (b< c) then begin a: =b; c: =b; writeln(a); writeln(b); writeln(c); end; if (c< a) and (c< b) then begin a: =c; b: =c; writeln(a); writeln(b); writeln(c); end; readln; end.

miaamkom1

Информатика

4,7(26 оценок)

Const n = 13; var a: array[1..n] of integer; i,k: integer; begin k: =0; write('введите массив a(',n,'): '); for i: = 1 to n do begin read(a[i]); if a[i] = 1 then k: =k+1 end; writeln('количество единиц: ',k); end. const n = 13; var a: array[1..n] of integer; i: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(13)-6; write(' ',a[i]); if a[i] < 0 then a[i]: =a[i]+a[1] end; writeln; write('новый массив: '); for i: = 1 to n do write(' ',a[i]) end.