Var x,y:integer; begin writeln('x, y:'); readln(x,y); writeln(x,'^2 = ',x*x); writeln(y,'^3 = ',y*y*y); if x*x<y*y*y then writeln(x*x) else writeln(y*y*y); end.
var a: array [1..100,1..100] of longint ;i, j ,d, n,m,k: longint;beginread(n,m); for i:=1 to n do for j:= 1 to m doread(a[i,j]); j:=0; for i:=1 to n do begin j:=j+1; d:=0; while d<2 do if a[i,j]<0 then begin k:=k+1; d:= 3; end; end;
if k>(m/2) then begin for i:= 1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*10 ; end else begin for i:=1 to n do for j:= 1 to m do if a[i,j]<0 then a[i,j]:=a[i,j]*a[i,j] ;end; for i:=1 to n dobegin for j:= 1 to m dowrite(a[i,j],' ');end;end.
работать на компьютере во влажной одежде и влажными руками;
располагаться сбоку или сзади от включенного монитора;
касаться экрана, тыльной стороны дисплея, проводов питания, заземления, соединительных кабелей
передвигать компьютеры и мониторы, снимать крышку корпуса системного блока;
включать / выключать компьютер без разрешения, отсоединять и подсоединять любые устройства компьютера, нарушать порядок включения и выключения аппаратных блоков;
самостоятельно пытаться устранить любые неполадки в работе компьютера, независимо от того, когда и по чьей вине они произошли;
перекрывать вентиляционные отверстия на системном блоке и мониторе;
ударять по клавиатуре, нажать бесцельно на клавиши;
класть книги, тетради и другие вещи на клавиатуру, монитор и системный блок; удалять и перемещать чужие файлы, приносить и запускать компьютерные игры.
begin
writeln('x, y:');
readln(x,y);
writeln(x,'^2 = ',x*x);
writeln(y,'^3 = ',y*y*y);
if x*x<y*y*y then writeln(x*x) else writeln(y*y*y);
end.
Пример:
x, y:
7 4
7^2 = 49
4^3 = 64
49